range(10,9999){m:it;while(m/10%10>m%10){m/=10;}m>9||it.p;};