[guessit]
exten => 500,1,Answer
exten => 500,2,Goto(s,1)
exten => s,1,SetVar(GUESS=$[${EPOCH} % 9])
exten => s,2,Playback(WORK/intro)
exten => s,3,Read(NUMBER,WORK/input_number,1)
exten => s,4,DigitTimeout(3)
exten => s,5,ResponseTimeout(5)
exten => s,6,GotoIf($["${NUMBER}" = "${GUESS}"]?19:7)
exten => s,7,GotoIf($["${NUMBER}" > "${GUESS}"]?10:8)
exten => s,8,GotoIf($["${NUMBER}" < "${GUESS}"]?15:9)
exten => s,9,Goto(s,3)
exten => s,10,Playback(WORK/less)
exten => s,11,Goto(s,3)
exten => s,15,Playback(WORK/more)
exten => s,16,Goto(s,3)
exten => s,19,Background(WORK/win)
exten => s,20,HangUp