(dotimes(x 1e4)(if(fold(lambda(c r)(and r(char>? r c)c))#\A(string->list(number->string(+ 10 x))))(print(+ x 10))))