*! version 1.0.0  04/09/92
program define nlinit
	local val `1'
	confirm number `val'
	mac shift 
	while "`1'"!="" {
		mac def `1' `val'
		mac shift
	}
end