3.6.lisp ok