solved problem 6 again in common lisp