Problem 53 in lisp