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