               (if no-prefix val (str nml ":" key "=" val))))]
     (str (string/join "\n" (map f gets)) "\n")))
 
-(defn- nml-name [x]
-  (nml-str (second x)))
+;;(defn- nml-name [x]
+;; (nml-str (second x)))
 
 (defn- nml-out [out s]
   (if (= out *out*)

      (println (str "#PM# 1 " newtree))
      newtree)))

(defn nml-set [m nml key val]
  (let [src (str "user-supplied value")
        val (nml-str (nml-parse val :values src))]
    (assoc-in m [(string/lower-case nml) (string/lower-case key)] val)))

;; cli


  (:require [clojure.tools.cli :as cli   ])
  (:gen-class))

;;(declare nml-get nml-name nml-parse nml-set nml-str strmap)
(declare nml-get nml-parse nml-set strmap)

;; formatting

