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