:cm L let 
:wh@n<500|let@n=@n+1|Li=1|Ls=1|wh s|Li+=1|Ls-=@n%i?1:1-i|endw|let@O=i<@n?"":@n."\n"|endw
ioZZ