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