Exercise 1.7.scm