Asteroids in Haskell