a password generator written in haskell