A simple game in Haskell and Gloss