solved number 6 in lisp!!!