Asteroids clone in Common Lisp