;; Benchmark: 198ns
;; Benchmark-Repeat: 10207
;; Nested Macro and Arithmetic example
;; Output: 81

(do
    (macro square [x] `(* ~x ~x))
    (macro power4 [x] `(square (square ~x)))
    (power4 3))