solved number 5 in lisp!!!