added lisp code