   [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) 
+        mapped-args (map (fn [[arg map-val]] (if (and (map? map-val)
                                                       (keyword? arg))
                                                (arg map-val)
                                                arg))

    (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)]

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

(defn- decorate-ugen-spec
