Ex2.46.scm