Name: Anonymous 2008-04-25 14:49
Create a program that gives this as its output: http://pastebin.ca/997618
let ls = ['A' .. 'Z']; vs = "AEIOU"; xs = [[l, v, v, l] | l <- ls, v <- vs] in mapM_ putStrLn xs