Name: Anonymous 2008-04-25 14:49
Create a program that gives this as its output: http://pastebin.ca/997618
mapM_ putStrLn $ ['A'..'Z'] >>= (`map` "AEIOU") . (return (.) `ap` (:) `ap` (ap (:) . flip (:) . (:[])))