Ex2.38.scm