input""a
while(a)?a
a=a-10^len(str$(a-1))/10wend
?0