> Sound.SC3.UGen.Help.viewSC3Help "Duty"
> Sound.SC3.UGen.DB.ugenSummary "Duty"

# sc3 reorders inputs

> import Sound.SC3
> import qualified Sound.SC3.Monadic as M

> do {n0 <- M.drand dinf (mce [0.01,0.2,0.4])
>    ;n1 <- M.dseq dinf (mce [204,400,201,502,300,200])
>    ;let f = duty KR n0 0 RemoveSynth n1
>     in audition (out 0 (sinOsc AR (f * mce2 1 1.01) 0 * 0.1))}

Using control rate signal, mouseX, to determine duration.
> let {n = dseq 'a' dinf (mce [204,400,201,502,300,200])
>     ;x = mouseX KR 0.001 2 Linear 0.1
>     ;f = duty KR x 0 RemoveSynth n}
> in audition (out 0 (sinOsc AR (f * mce2 1 1.01) 0 * 0.1))