Source code from the book Lisp in Small Peices