Problem 43 in Lisp