1(module m1 ((s1 f1)) 2 (import scheme (chicken base)) 3 (define (f1) (print "f1") 'f1) 4 (define-syntax s1 5 (syntax-rules () 6 ((_) (f1))))) 7 8(module m2 (s2) 9 (import scheme (rename m1 (s1 s1:s1))) 10 (define-syntax s2 11 (syntax-rules () 12 ((_) (s1:s1))))) 13 14(module m3 (s3) 15 (import scheme m2) 16 (define-syntax s3 17 (syntax-rules () 18 ((_) (s2))))) 19 20(import m3) 21(s3) 22 23