*! version 1.1.0 09oct1997  STB-40 sg74
program define symmi    
        version 5.0
	preserve
	parse "`*'", parse(",")
	local numlist="`1'"
	local oplist="`3'"

        qui {
		tabi "`numlist'" ,replace
		drop if pop==0
 		expand pop
 		noi symmetry row col,"`oplist'"
	}
end