implemented char-{lower, upper}-case? in (scheme char) and test system in test.scm