 (defn convolver
   [generate-bit!]
   (fn [context at duration]
-    (section
+    (subgraph
       (doto (.createConvolver context)
         (-> .-buffer (set! (buffer generate-bit! context (+ duration 1.0))))))))
 

  (fapply
    (fn [graph1 graph2]
      (.connect (:output graph1) (:input graph2))
      (section (:input graph1) (:output graph2)))
    upstream-synth
    downstream-synth))


          (.connect (:output graph) (:input downstream))
          (when (:input graph)
            (.connect (:output upstream) (:input graph)))))
      (subgraph (:input upstream) (:output downstream)))))


; Noise
