example from lisp in small pieces chap1