work on lisp version of Iam project 1