Eval Example

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