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)