> import Sound.SC3 {- hsc3 -}

> g_01 =
>     let a = fSinOsc AR 800 0
>         b = fSinOsc AR (xLine KR 200 500 5 DoNothing) 0
>     in difSqr a b * 0.125

Written out:

> g_02 =
>     let a = fSinOsc AR 800 0
>         b = fSinOsc AR (xLine KR 200 500 5 DoNothing) 0
>     in (a * a - b * b) * 0.125