• + 0 comments

    Haskell oneliner:

    main = do interact (concat . (\[p,q]->zipWith (\x y-> [x,y]) p q) . lines)