$ echo 'main=do{putStrLn $ unlines $ map show [ (x,y,z) | x <- [1,2], y <- "ab", z <- "#*&"]}' | runhaskell
(1,'a','#')
(1,'a','*')
(1,'a','&')
(1,'b','#')
(1,'b','*')
(1,'b','&')
(2,'a','#')
(2,'a','*')
(2,'a','&')
(2,'b','#')
(2,'b','*')
(2,'b','&')