simple game in haskell using gloss