handball/src/test/run-pass/closure/val-or-var.scm

(define globalSet #f)
(define globalGet #f)

(define (main)
  (define a 0)

  (define (set)
    (set! a 1))
  (define (get)
    (display a)
    (newline))

  (set! globalSet set)
  (set! globalGet get))

(main)
(globalGet)
(globalSet)
(globalGet)