3.9.lisp