program define report
version 2.1
	quietly {
		di _n _col(10) "  median      5%     95%" /*
		*/ 	"           1%      5%     10%" /*
		*/ _n _dup(63) "-"
		while "%_1"!="" {
			sum %_1, detail 
			mac def _median = _result(10)
			mac def _p5 = _result(7)
			mac def _p95 = _result(13)
			mac def _obs = _result(1)
			count if %_1<.01
			mac def _r1 = _result(1)/%_obs
			count if %_1<.05
			mac def _r5 = _result(1)/%_obs
			count if %_1<.10
			mac def _r10 = _result(1)/%_obs
			#delimit ;
			di "%_1" _col(10) 
				%8.4f %_median 
				%8.4f %_p5 
				%8.4f %_p95
				"     " 
				%8.3f %_r1 
				%8.3f %_r5 
				%8.3f %_r10 ;
			#delimit cr
			macro shift
		}
	}
end