Как просто отловить IVR на другом конце провода.

В астериске есть модуль для распознавания и анализа IVR называется  AMD. Но он  работает после того как уже взяли трубку. А хотелось бы предугадать до того как наступит ответ и начнут бежать секунды а значит и денюжки.
А предугадать просто! В 90% случаев ответ от IVR наступает до 8сек., а значит можно спокойно сбрасывать такие звонки.

[outboud]
exten => _X.,1,Answer()
exten => _X.,n,Set(time=${STRFTIME(${EPOCH},,%d%mNaVH:NaVS)}))
exten => _X.,n,Set(secn=${STRFTIME(${NOW},,%S)})
exten => _X.,n,Set(minn=${STRFTIME(${NOW},,%M)})
exten => _X.,n,Set(timen=${MATH(60*${minn})})
exten => _X.,n,NoOP(${timen})
exten => _X.,n,Set(timend=${MATH(${secn}+${timen})})
exten => _X.,n,NoOP(${timend})
exten => _X.,n,Dial(SIP/shluz1/${EXTEN},120,mM(caling^${timend}))
exten => _X.,n,Hangup()

[macro-caling]
exten => s,1,Set(timend=${ARG1})
exten => s,n,Set(seck=${STRFTIME(${NOW},,%S)})
exten => s,n,Set(mink=${STRFTIME(${NOW},,%M)})
exten => s,n,Set(timek=${MATH(60*${mink})})
exten => s,n,NoOP(${timek})
exten => s,n,Set(timekd=${MATH(${timek}+${seck})})
exten => s,n,NoOP(${timekd})
exten => s,n,Set(timer=${MATH(${timekd}-${timend})})
exten => s,n,GotoIf($["${timer}" < "8.000000"]?10:12)
exten => s,n,NoOP(${timer})
exten => s,n,Hangup()
exten => s,n,NoOP(${timer})