Asteroids using Haskell, Yampa, and BlankCanvas