Game like asteroids on Haskell