halgari

(ns scratch)

(defn map [f]
  (fn [xf]
    (fn
      ([] (xf))
      ([acc] (xf acc))
      ([acc itm]
       (xf acc (f itm))))))