(defn f [x]
  (+ x 1))

(defmacro f-macro [x]
  (list 'f x))

(println (letfn [(f [x] (- x 1))] (f-macro 10)))