Mine

[record]      ;record a sound and play it back
exten => s,1,answer
exten => s,2,wait,2
exten => s,3,record,/tmp/asterisk-recording:gsm   ;you can change this to ulaw, etc
exten => s,4,wait,2
exten => s,5,playback,/tmp/asterisk-recording
exten => s,6,wait,2
exten => s,7,Goto(record|s|1)


[DTMF-decoder]   ;DTMF tone decoder
exten => s,1,Answer
exten => s,2,Read(dtmfdecoder,press,50)   ;accepts 50 digits
exten => s,3,saydigits(${dtmfdecoder})
exten => s,4,Goto(DTMF-decoder|s|1)


[clock]    ;Talking clock
exten => s,1,answer
exten => s,2,wait,1
exten => s,3,Playback,time
exten => s,4,sayunixtime( | | H)
exten => s,5,sayunixtime( | | M)
exten => s,6,sayunixtime( | | S)
exten => s,7,Goto(clock|s|2)