Not that you'll be able to turn in the perl list comprehensions one in for your homework either, but . . .

$ 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','&')
[download]