(defn f [x] (println x))
(defn g [x] (f x))

(let [h (fn [x] (g x))]
  (binding [f (fn [x] (print (inc x)))]
    (h 5)))

; 6