 (defn cvt-recur [lvl scope op args]
   [(interpose (nl lvl)
               (map-indexed (fn [idx arg]
-                             [(str "l" idx) "=" (cvt-expr (inc lvl) scope arg)])
+                             [(str "l" idx) "="
+                              (cvt-expr (inc lvl) scope arg)])
                            args))
    (nl lvl)
    "continue"])

(declare cvt-expr)

(defn cvt-body [lvl scope forms]
  (map (fn [form] [(cvt-expr (inc lvl) scope form) ";"])
       forms))

(defn cvt-cond [lvl scope op test-expr-forms]
  [(interpose "else"

(defn cvt-let [lvl scope op [bindings & body]]
  [(interpose (nl lvl)
              (map (fn [[var-name init-val]]
                     [(cvt-sym var-name) ":= ("
                      (cvt-expr (inc lvl) scope init-val) ")"])
                   (partition 2 bindings)))
   (nl lvl)
   (cvt-body (inc lvl) scope body)])
