Ex. 4.1
実行順序を指定できるのは、begin しかないので、これを使う。
(define (list-of-values exps env)
(if (no-operands? exps)
'()
(begin (set! a (eval (first-operand exps) env))
(set! b (list-of-values (rest-operands exps) env))
(cons a b))))