Ex2.19.scm