prints the library of babel

babel.hs

import Control.Monad
 
chars :: [Char]
chars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ,.'\"-;:?!()"
 
incrementS :: [[Char]] -> [[Char]]
incrementS [] = [chars]
incrementS ([_] : r) = chars : (incrementS r)
incrementS ((c:cs) : r) = cs : r

allBabel = map (map head) $ iterate incrementS []
 
main :: IO ()
main = forM allBabel putStrLn >> return ()