imperative.clj

(def ^:dynamic foo [])
(def ^:dynamic bar)

(defn state []
  {#'foo foo, #'bar bar})

(defn helper []
  (uses bar)

(defn step1 []
  (something foo (helper)))

(defn step2 []
  (something-else bar))

(defn result []
  (yet-another-thing foo bar))

(defn run [init-bar]
  (with-bindings (assoc (state) #'bar init-bar)
    (step1)
    (step2)
    (when debug
      (pprint (state)))
    (result)))