Ex2.45.scm