• + 0 comments
    main = interact $ (\(x:y) -> concat [ [a,b] | (a,b) <- zip x (head y) ]) . words