Problem 4 in Lisp.