;experiments

[redial_jl2515]
exten => s,1,Set(Count=0);
exten => s,2,Wait(1);
exten => s,n,Playback(vm-extension);
exten => s,n,Set(Count=$[${Count} + 1]);
exten => s,n,DigitTimeout(1.0);

exten => _X,1,Macro(speak,${Count});
exten => _X,n,Goto(redial_jl2515,s,2);

exten => _XX,1,Macro(speak,${Count});
exten => _XX,n,Goto(redial_jl2515,s,2);

exten => i,1,Playback(pbx-invalid);
exten => i,2,Goto(redial_jl2515,s,1);
exten => t,1,Playback(vm-goodbye);
exten => t,2,Hangup( );

[macro-speak]
exten => s,1,SayNumber(${MACRO_EXTEN});
exten => s,2,Wait(1);
exten => s,3,SayNumber(${ARG1});

;LOOP THROUGH BEEPS
exten => s,4,Set(Counter=${ARG1});

exten => s,5,Wait(0.2);
exten => s,6,Playback(beep);
exten => s,7,Set(Counter=$[${Counter} - 1]);
exten => s,8,GotoIf($[${Counter} != 0]?5:);