main=mapM print[x|x<-[10..5^6],and$zipWith(>)(show[x])$show x]