Asteroids in Haskell, a classic game redone using blank-canvas