 
 (defn connect-> [& nodes]
   (reduce connect nodes))
+
+(defn add [& ugens]
+  (fn [context at duration]
+    (let [sink ((gain 1.0) context at duration)]
+      (doseq [ugen ugens]
+        (.connect (ugen context at duration) sink))
+      sink)))
+
+
+; Noise
 
 (defn noise [bit duration]
   (fn [context at duration]

(def square (partial oscillator "square"))
(def triangle (partial oscillator "triangle"))

(defn biquad-filter [type freq]
  (fn [context at duration]
    (doto (.createBiquadFilter context)

      (doto (.createDelay context maximum)
        (-> .-delayTime (plug time context at duration))))))

