1 2 3 4 5
#lang r5rs (eval '(begin (define x 0) (display x) (newline) (display (+ x 1))) (scheme-report-environment 5))