// Obnoxious Alarm Clock, P. Cook, Feb 2009
Phasor drive => Gen10 g10 => dac;
g10.coefs( [1., 0.5, 0.3, 0.2] );
drive.freq(2045.0);

for (0 => int i; i<5; 1 +=> i)    {
    AlBeep();
    0.6 :: second => now;
}

fun void AlBeep()    {
    for (0 => int i; i<4; 1 +=> i)    {
        1.0 => g10.gain;
        0.05 :: second => now;
        0.0 => g10.gain;
        0.05 :: second => now;
    }
}
// END OF ALARM, GET UP ALREADY!!