0. #lang racket/base
1.  
2. (require (for-syntax racket/base))
3.  
4. (define-syntax (foo stx)
5.   (printf "expanding foo!\n")
6.   (syntax-case stx ()
7.     [(_ . body) #'(let () . body)]))
8.  
9. (define-syntax (bar stx)
10.   (printf "expanding bar!\n")
11.   (syntax-case stx ()
12.     [(_ . body) #'(let () . body)]))
13.  
14. (define-syntax (baz stx)
15.   (printf "expanding baz!\n")
16.   (syntax-case stx ()
17.     [(_ . body) #'(let () . body)]))
18.  
19.  
20. (define (times-3 x)
21.   (+ (foo (foo (foo (foo x))))
22.      (bar (bar (bar (bar x))))
23.      (baz (baz (baz (baz x))))))

=>

expanding foo! expanding foo! expanding foo! expanding foo! expanding bar! expanding bar! expanding bar! expanding bar! expanding baz! expanding baz! expanding baz! expanding baz!