Bedlam
SynthDef(\alarm, {
var snd, a;
a=FSinOsc;
y=Pulse;
snd = Splay.ar(a.ar(Select.ar(GVerb.ar(a.ar((3/b=[1,3,7,13,17,37]+0.2)*8)),(c=y.ar(0.7/b))>0*13+b+48).midicps,0,c%3).tanh/7);
Out.ar(0, snd);
}).add;
)
x = Synth(\alarm);