program define simple 
version 2.1
	mac def _varlist "req ex max(1)"
	mac def _options "Quiet"
	mac def _if "opt"
	mac def _in "opt"
	parse "%_*"
	quietly sum %_varlist, detail
	mac def _s = _result(1)*((_result(14)^2/6) + (_result(15)-3)^2/24)
	if "%_quiet"=="" {
		di "Chi2(2) = %_s   p = " chiprob(2,%_s)
	}
	mac def simple "%_s"
end