(defn make-adder [x]

(let [y x]
  (fn [z] (+ y z))))

(def add2 (make-adder 2)) (add2 4)