   (let [tree  (nml-parse s :s)
         child :nvseq
         f     (fn [& v] (into [child] (nml-uniq v)))]
-      (insta/transform {child f} tree)))
+    (insta/transform {child f} tree)))
 
 (defn- nml-uniq [values]
   (loop [head (first values) tail (rest values) tree []]

    (if (and gets sets) (fail (msgs :get+set)))
    (if (and sets (:no-prefix options)) (fail (msgs :set+no-prefix)))
    (if (and (:create options) (:in options)) (fail (msgs :create+in)))
    (let [m (nml-map (if (:create options) "" (read-file in)))]
      (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))))))


;; cli

(defn- assoc-f [m k v]
  (if (k m) (fail (msgs :multi-format)))
  (assoc m k v))

(defn- assoc-g [m k v]
  (let [gets (:get m [])]
    (assoc m :get (into gets [v]))))
