Code written while learning practical common lisp