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