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)