rebol[]for n 10 9876 1[m: n f: true while[m > 9][a: to-integer(/ m 10)f: f and((mod m 10)< mod a 10)m: a]if f[print n]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page