A name generator written in Haskell