set adosize 60
set more 1

mac def progs
capture program drop doit 
program define doit
	mac def _name "%_2`%_3"
	mac def progs "%progs %_name"
	set seed %_1
	mac shift
	tester 10000 100 "%_*"
	quietly save %_name, replace
	quietly log using %_name, replace
	report sk si am
	log close 
end

capture drop rr
program define rr
	parse "%progs", parse(" ") 
	while "%_1" != "" { 
		quietly use %_1, clear
		di _n "%_1:"
		report sk si am 
		mac shift
	}
end

doit 1001 r_nrml			/* normal		*/
doit 76777 r_cnrml			/* contaminated normal	*/
doit 32098183 r_ltnrml			/* long-tail normal	*/
doit 5838887 r_lnrml			/* LnNormal		*/
doit 8793321 r_unfrm			/* uniform		*/
doit 1295929 r_t 5			/* t(5)			*/
doit 4738443 r_t 20			/* t(20)		*/
doit 673737 r_chi2 5			/* chi2(5)		*/
doit 423939 r_chi2 10			/* chi2(10)		*/

log using results, replace
rr 
log close