main=mapM print[x|x<-[0..493],"2">x`drop`do[0..x];c<-show x;['1'..c]]