Just trying to write a game in Haskell