*! version 3.0.0  06/01/92  repeat
program define nlsm_rpt /* cmd basevar newvar */
	version 3.0 
	local cmd "`1'"
	local v "`2'"
	local gen "`3'"
	tempvar base next 
	quietly {
		`cmd' `v' `base'
		`cmd' `base' `next'
		capture assert `base'==`next'
		while _rc { 
			drop `base'
			rename `next' `base'
			`cmd' `base' `next'
			capture assert `base'==`next'
		}
	}
	rename `next' `gen'
end