(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)