solved number 2 in lisp!!