                                                       nested-expr-tmp (create-let-expression
                                                                         input
                                                                         (vec rule-expression)
-                                                                        body-creation-fn
+                                                                        out-format-fn
                                                                         output
                                                                         (inc nesting-level))
                                                       nested-expr-ret-tmp (last nested-expr-tmp)

                                                                                    (create-let-expression
                                                                                      input
                                                                                      v
                                                                                      body-creation-fn
                                                                                      output
                                                                                      (inc nesting-level)))
                                                                  :default (do

(declare create-proc-fn)

(defn- create-bindings-vector
  [input rules out-format-fn output nesting-level]
  (reduce
    (fn [v rule]
      (let [rule-name (first rule)
