exercise 1.46.scm