Exercise 1.32 in Guile Scheme