blurp amp = do
    cps <- acps
    return $ 0.1 * sig amp * osc cps 
    where
        dec = linseg [11, idur * 0.75, 11, idur * 0.25, 0]
        kgate = kr $ oscil 1 dec (elins [1, 0, 0])
        anoise = noise 11000 0.99
        acps = fmap (flip samphold kgate) anoise
blurp amp = do
    cps <- acps
    return $ 0.1 * sig amp * osc cps 
    where
        dec = linseg [11, idur * 0.75, 11, idur * 0.25, 0]
        kgate = kr $ oscil 1 dec (elins [1, 0, 0])
        anoise = noise 11000 0.99
        acps = fmap (flip samphold kgate) anoise
blurp amp = do
    cps <- acps
    return $ 0.1 * sig amp * osc cps 
    where
        dec = linseg [11, idur * 0.75, 11, idur * 0.25, 0]
        kgate = kr $ oscil 1 dec (elins [1, 0, 0])
        anoise = noise 11000 0.99
        acps = fmap (flip samphold kgate) anoise