Evil Hangman implemented in Haskell