for n=9to 1e4m=n
while(mod(m,10)<mod(int(m/10),10))m=int(m/10)
if!m>9?n
wend
next