4.1.lisp