                      (volume 0.05)))
               freqs
               envelopes)
-         (apply blend))))
+         (apply ><))))

(defn destination [at context]
  (.-destination context))

(defn >< [ugen1 ugen2]
  (fn [at context]
    (let [one (ugen1 at context)
          two (ugen2 at context)

      (.connect two sink)
      sink)))

(defn >< [& nodes]
  (reduce blend nodes))

(defn bell! [{:keys [time duration pitch]}]
  (let [harmonic (fn [n proportion]
                   (>>> (sin-osc (* n pitch) 1.5)
                        (percuss 0.01 proportion)
                        (volume 0.01)))]
    (apply ><
           (map
             harmonic
             [1.0 2.0 3.0 4.1 5.2]
