Exercise 1.33 in Guile Scheme
Exercise 1.33 in Common Lisp