ch09.lisp