Added function "apply" and simplified arithmetic expression evaluator in Scheme a bit