Guessing Game - Haskell | SlaveCode