Ex2.39.scm