import Data.List main = mapM putStrLn $ transpose ["abc", "ABC", "123"]