changed control-test to Scheme, and fixed expt