import Data.List f = concat.transpose main = do putStrLn $ f ["SIMPLE"]; putStrLn $ f ["POLLS", "EPEES"]; putStrLn $ f ["LYES", "APRONS"]; putStrLn $ f ["ABCDE", "a c", "123 567"]; putStrLn $ f ["\"\n$?*", "", ",(.)\\"]