simple 2D game using haskell