*! version 3.0.0  06/01/92
program define nlsm_e /* varname newvar */
	version 3.0
	local v "`1'"
	local g "`2'"
	local type : type `v'
	tempvar res
	quietly {
		gen `type' `res' = `v'
		nlsm_epu `v'[3] `v'[2] `v'[1]
		replace `res'=$S_1 in 1
		nlsm_epu `v'[_N-2] `v'[_N-1] `v'[_N]
		replace `res'=$S_1 in l
	}
	rename `res' `g'
end