-- 4pok
black (amp, cps, filterSweepStart, filterSweepEnd, bandWidth) = 
    fmap aout $ rand 1
    where 
        k1 = expdur [filterSweepStart, 1, filterSweepEnd]
        a1 noise = reson noise k1 (k1 / sig bandWidth) `withD` 1
        k3 = expdur [0.001, 0.001, amp, 0.999, 0.001]
        a2 = k3 * osc (sig cps + 0.6 * (osc 11.3 `withD` 0.1))
        aout noise = 0.5 * (a1 noise + a2)
black (amp, cps, filterSweepStart, filterSweepEnd, bandWidth) = 
    fmap aout $ rand 1
    where 
        k1 = expdur [filterSweepStart, 1, filterSweepEnd]
        a1 noise = reson noise k1 (k1 / sig bandWidth) `withD` 1
        k3 = expdur [0.001, 0.001, amp, 0.999, 0.001]
        a2 = k3 * osc (sig cps + 0.6 * (osc 11.3 `withD` 0.1))
        aout noise = 0.5 * (a1 noise + a2)
black (amp, cps, filterSweepStart, filterSweepEnd, bandWidth) = 
    fmap aout $ rand 1
    where 
        k1 = expdur [filterSweepStart, 1, filterSweepEnd]
        a1 noise = reson noise k1 (k1 / sig bandWidth) `withD` 1
        k3 = expdur [0.001, 0.001, amp, 0.999, 0.001]
        a2 = k3 * osc (sig cps + 0.6 * (osc 11.3 `withD` 0.1))
        aout noise = 0.5 * (a1 noise + a2)