*scratch*

(use 'clojure.walk)

(defmacro with-iota [& body]
  "Provides the local 'iota' which starts at 0 and automatically self-increments"
  (let [iota (gensym "whatever-")]
  `(let [~iota ~(atom -1)]
     ~@(map #(postwalk-replace {'iota `(swap! ~iota inc)} %) body))))

(with-iota
  (let [a iota
	b iota
	c iota]
    (apply println [a b c])))