 
 (def OUT-WIDTH 50)
 
-(defn word-wrap [width s]
+(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]
+(defn ljust [width s] ; Left justify a string.
   (format (str "%-" width "s:") s))
-
-(defn pprintm [x]
-  (binding [*print-meta* true]
-    (pprint x)))
 
 (defn read-model-file [fname]
     {:fname fname

    [(or (:line (meta form)) MAX-LINE)
     (or (:end-line (meta form)) MIN-LINE)]))

(defn j [v]
  (string/join " " (flatten v)))

(defn process-top-level-form [smodel form]
  (let [[op name & rest] form]

(def MAX-LINE 0x8FFFFFF)
(def MIN-LINE -1)

(defn line-range [form] ; Returns the source [line-beg line-end] nums for a form.
  (if (coll? form)
    (reduce (fn [[min-line-beg max-line-end] v]
              (let [[line-beg line-end] (line-range v)]
