feedr (rd)
warning: input/output feedback loop

> import Sound.SC3.Monadic

> main =
>   let { delayWr b i = recordBuf b 0 1 0 1 Loop 0 DoNothing i
>       ; tap nc b dt = playBuf nc b 1 0 (dt * (- sampleRate)) Loop DoNothing
>       ; dl = 6
>       ; feedr n = do { t <- sequence (replicate n (rand 0.0 (constant dl)))
>                      ; g <- sequence (replicate n (rand 0.4 1.0))
>                      ; f <- sequence (replicate n (rand 0.9 0.95))
>                      ; let { d = zipWith (\p q -> tap 2 10 p * q) t g
>                            ; x = mouseX kr 0.02 1.0 Exponential 0.1
>                            ; s = clip2 (leakDC (hpf (sum d) 20) 0.995) 1
>                            ; i = soundIn (mce2 0 1)
>                            ; r = i + sum (map (* x) (zipWith (*) d f)) }
>                        in return (mrg [out 0 s, delayWr 10 r]) } }
>   in withSC3 (\fd -> do { nf <- fmap (* dl) (serverSampleRateActual fd)
>                         ; send fd (b_alloc 10 (floor nf) 2)
>                         ; audition =<< feedr 18 })

withSC3 (\fd -> send fd (b_zero 10))