       (cond gets  (nml-out out (nml-gets m gets (:no-prefix options)))
             sets  (nml-out out (fmt (nml-sets m sets)))
             :else (nml-out out (fmt m))))))
-;;           :else (nml-out out (fmt-bash m))))))

  (try (slurp in)
       (catch Exception e
         (fail (str "Could not read from '" in "'.")))))

(defn- usage [summary]
  (doseq [x [""

        cjoin    #(string/join "," %)
        delegate #(map nml-str %)
        delesort  (fn [val] (delegate (sort-by #(nml-name %) val)))
        list2str #(strmap nml-str %)
        strfirst #(nml-str (first %))
        strlast  #(nml-str (last %))]
    (apply str (case key
