main.lisp, now with fewer lines