         appender  (partial append-seq-args spec)]
     (assoc spec :init
            (fn [ugen]
-             (-> ugen 
-               defaulter 
-               mapper 
-               initer 
-               n-outputer 
-               floater 
+             (-> ugen
+               defaulter
+               mapper
+               initer
+               n-outputer
+               floater
                appender)))))
 
 (defn- decorate-ugen-spec

    (println (apply str (interpose " -> " cat)))))

(def UGEN-RATE-SORT-FN
  (zipmap UGEN-RATE-PRECEDENCE (range (count UGEN-RATE-PRECEDENCE)))

(defn- print-ugen-rates [rates]
  (let [rates (sort-by UGEN-RATE-SORT-FN rates)]

  [spec ugen]
  (let [args (:args ugen)
        args-specs (args-with-specs args spec :map)
        mapped-args (map (fn [[arg map-val]] (if (and (map? map-val)
                                                      (keyword? arg))
                                               (arg map-val)
                                               arg))
