Code written while going through the book land of lisp