problem 16 in common lisp