Ex2.20.scm