handball/src/test/run-pass/closure/mutate-levels.scm

(define x 2)

(define (show-x)
  (display x)
  (newline))

(show-x)
(set! x 3)
(show-x)

((lambda ()
   (define x 7)
   (show-x)
   (set! x 8)
   (show-x)))

((lambda ()
   (define (show-x)
     (display x)
     (newline))
   (define x 7)
   (show-x)
   (set! x 8)
   (show-x)))