Ex2.39.scm updated