Siren alarm script

:for c from=1 to=50 step=1 \

do={ \
:set i 15
:set x 1900

:do {\
:beep length=400ms frequency=$x; :delay 25ms
:set i ($i - 1);
:set x ($x +35)

} \
while (($i <16)>0))
:beep length=0 frequency=0
}