(define a 1)
(print a)
(eval `(set! a 2))
(print a) ; 2

(module
 c
 *
 (import chicken scheme)
 (define b 1)
 (print b)
 (eval `(set! b 2))
 (print b) ; 1
)