line input""a$
b=len(a$)-1
if!b?"
6


54
3
2

1":end
for i=-1to b?mid$(a$,b-i,1);next