*! Lachenbruch, STB-7: dm8
program define gl
	version 3.0
	gen `3' = int(mod((_n-1)/`2',`1'))+1
end