Ex2.37.scm