     (let [val (nml-get tree nml key)]
       (println (if no-prefix val (str nml ":" key "=" val))))))
 
+;;(defn- nml-map [tree]
+;; (let [q  #(str "\"" % "\"")
+;;       f0 (fn [& nvsubseqs   ] (into {} nvsubseqs))
+;;       f1 (fn [dataref values] { (q (nml-str dataref)) (q (nml-str values)) })
+;;       f2 (fn [& stmts       ] (into {} stmts))
+;;       f3 (fn [name nvseq    ] { (q (nml-str name)) nvseq })]
+;;   (insta/transform {:nvseq f0 :nvsubseq f1 :s f2 :stmt f3 } tree)))
+
 (defn- nml-map [tree]
-  (let [q  #(str "\"" % "\"")
-        f0 (fn [& nvsubseqs   ] (into {} nvsubseqs))
-        f1 (fn [dataref values] { (q (nml-str dataref)) (q (nml-str values)) })
+  (let [f0 (fn [& nvsubseqs   ] (into {} nvsubseqs))
+        f1 (fn [dataref values] { (nml-str dataref) (nml-str values) })
         f2 (fn [& stmts       ] (into {} stmts))
-        f3 (fn [name nvseq    ] { (q (nml-str name)) nvseq })]
+        f3 (fn [name nvseq    ] { (nml-str name) nvseq })]
     (insta/transform {:nvseq f0 :nvsubseq f1 :s f2 :stmt f3 } tree)))
 
 (defn- nml-name [x]

                  ""
                  (try (slurp in)
                       (catch Exception e
                         (fail (str "Could not read from '" in "'."))))))]
      (if debug (println tree))
      (cond gets  (nml-gets tree gets (:no-prefix options))
            sets  (let [s (nml-str (nml-sets tree sets))]
                    (if (= out *out*)

                 :sign     val
                 :slash    val
                 :star     "*"
                 :stmt     ["&" (strfirst val) " " (list2str (rest val)) " /"]
                 :string   val
                 :true     "t"
                 :uint     val
