;; Benchmark: 110ns
;; Benchmark-Repeat: 19224
(do
  (macro wrap [f] `(fn [x] (~f x)))

  (def add1 (fn [x] (+ x 1)))
  (def add2 (fn [x] (+ x 2)))

  (def w1 (wrap add1))
  (def w2 (wrap add2))

  (assert-eq 13 (w1 (w2 10))))