> import Sound.SC3 {- hsc3 -}
> import qualified Sound.SC3.UGen.Bindings.DB.External as X {- hsc3 -}

> m_01 =
>   [b_alloc 10 512 1
>   ,b_gen_sine2 10 [Normalise,Wavetable,Clear] [(0.5,0.1)]]

    withSC3 (mapM_ maybe_async m_01)

> g_01 =
>   let t = impulse AR 20 0
>       n = linLin (lfNoise1 'α' KR 1) (-1) 1 1 10
>       s = envSine 9 0.1
>       e = envGen KR 1 1 0 1 RemoveSynth s
>   in X.fmGrainB t 0.2 440 220 n 10 * e