Ex2.33.scm