 ; Shuffle the notes, but then repeat them in the same order
 (demo 4
       (let [trig (impulse:kr 3)
-            freqs (dseq (dshuf [440 880 220] 2) Float/POSITIVE_INFINITY)
+            freqs (dseq (dshuf [440 880 220] 2) INF)
             note-gen (demand:kr trig 0 freqs)
             src (sin-osc [(* 1.01 note-gen) note-gen])]
         (* 0.2 src)))

; the others have played.
(demo 2
      (let [trig (impulse:kr 8)
            freqs (dxrand [440 880 220] Float/POSITIVE_INFINITY)
            note-gen (demand:kr trig 0 freqs)
            src (sin-osc note-gen)]
        (* [0.2 0.2] src)))

; Randomize the sequence of notes
(demo 2
      (let [trig (impulse:kr 8)
            freqs (drand [440 880 220] INF)
            note-gen (demand:kr trig 0 freqs)
            src (sin-osc note-gen)]
        (pan2 (* 0.1 src))))
