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