adjusted lisp example