Exercise 1.23 in Common Lisp