Simple haskell game engine