Hello,
My final solution:
...
same => n,Gosub(dati,s,1(${card}))
[dati]
exten => s,1,NoOp
same => n,Set(say=${LEN(${ARG1})})
same => n,Set(digit=0)
same => n,While($[${digit} < ${say}])
same => n,Saydigits(${ARG1:${digit}:1})
same => n,Wait(.75)
same => n,Set(digit=$[${digit} + 1])
same => n,Endwhile
same => n,Return
Thank you for yours suggestion
regards