solved problem 1 again in common lisp