(defn adder [x]
  (fn [a] (+ x a)))

(def add-five (adder 5))

(add-five 100)