exercise 4.34.scm