main=mapM(\n->putStrLn$0#n++", "++show n)[1..999] 49#_=show$1/0 s#1=show s s#n=(s+1)#if even n then ceiling$fromIntegral n/4 else 6*n+2
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page