1(module boo *
2  (import scheme)
3  (define var 42))
4
5(module foo *
6  (import scheme (chicken base) boo)
7  (define-syntax bar
8    (syntax-rules ()))
9  (set! bar 42) ;; set!-ing a macro
10  (set! var 42) ;; set!-ing an imported identifier
11  (let ((var #f)) (set! var 42)) ;; set!-ing a local variable
12  (letrec-values ((bar (values)))) ;; shadow a syntax item
13  (let-syntax ((m (syntax-rules ()))) (set! m 42)))
14