RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/Haskell/loop-over-multiple-arrays-simultaneously-2.hs

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