ghci> dict <- readFile "/usr/share/dict/words" 
ghci> let ten = take 10 (lines dict)
ghci> mapM_ print ten
"A"
"a"
"aa"
"aal"
"aalii"
"aam"
"Aani"
"aardvark"
"aardwolf"
"Aaron"
ghci>