main=mapM putStrLn[n#0++", "++1#n|n<-[1..999]] 7#x=show$1/0 1#x=show x n#x=cycle[div(n+2)4,6*n+2]!!n#(x+1)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page