   (println "hello world from zgo")
   (let [smodel (read-model-file "src/cbfg/fence.cljs")
         pmodel (process-top-level-forms smodel)]
-    (pprintm smodel)
-    (pprintm pmodel)
+    (pprint smodel)
     (emit (:lines smodel) pmodel)))
 

    [(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 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 read-model-file [fname]
    {:fname fname
