Code from my use of the book Land of Lisp