main=mapM print[x|x<-[0..493],"2">x`drop`do[0..x];c<-show x;['1'..c]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page