example. Scheme 参数从左到右的求值结果[mce-order]

(run-scheme '((define x 0)
                 (list (begin (define x (+ x 1)) x)
                       (begin (define x (+ x 1)) x))))

⇒ (1 2) · checked