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