Update SchemeTest1.scm