Ex2.40.scm