Ex2.30.scm