A 2D game in Haskell