 
 (defn process-fn-params [params]
   ["(" (interpose "," (map (fn [sym] [(c2g-sym sym) (c2g-type sym)])
-                           params)) ")"])
+                           params))
+   ")"])
 
 (defn process-fn-body [params forms]
   (map-indexed (fn [idx form]

(def OUT-WIDTH 50)

(defn word-wrap [width s] ; Returns a sequence of strings from word-wrapping s.
  (re-seq (re-pattern (str ".{0," width "}\\s")) s))

(defn ljust [width s] ; Left justify a string.
  (format (str "%-" width "s:") s))


(defn process-top-level-form [smodel form]
  (let [[op name & more] form]
    [(case (str op)
      "ns" (j ["package" (c2g-sym name)])
      "defn" (j (process-defn name (first more) (rest more)))
      "UNKNOWN-TOP-LEVEL-FORM")
     (line-range form)]))

(defn process-top-level-forms [smodel]
  (map #(process-top-level-form smodel %)
