Asteroids clone in straight-forward Haskell