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

{-# LANGUAGE ParallelListComp #-}

main :: IO [()]
main =
  sequence
    [ putStrLn [x, y, z]
      | x <- "abc"
      | y <- "ABC"
      | z <- "123"
    ]