                  :junk     ""
                  :logical  (strfirst val)
                  :name     (map string/lower-case val)
-                 :nvseq    (delesort val)
-                 :nvsubseq ["  " (strfirst val) "=" (strlast val) "\n"]
+                 :nvseq    (string/join " " (delesort val))
+                 :nvsubseq [(strfirst val) "=" (strlast val)]
                  :partref  (strfirst val)
                  :percent  "%"
                  :r        (strfirst val)

        child :nvseq
        f     (fn [& v] (into [child] (nml-uniq v)))]
      (insta/transform {child f} tree)))

;; main


        list2str #(apply str (map nml-str %))
        strfirst #(nml-str (first %))
        strlast  #(nml-str (last %))]
    (apply str (case key
                 :s        (string/join "\n" (delesort val))
                 :array    [(strfirst val) (strlast val)]
                 :c        (strfirst val)
                 :colon    ":"
