*! version 1.0.1  Fri Apr  8 10:47:32 CDT 1994  (STB20: sg25)
program define xi_mkun /* meaning make_unique_name <suggested_name> <topcat> */
	version 3.1
	local base "`1'"
	local ng `2'

	local name "I`base'"
	if `ng'<10 {
		local name = substr("`name'",1,6) + "_"
	}
	else if `ng'<100 {
		local name = substr("`name'",1,5) + "_"
	}
	else if `ng'<1000 {
		local name = substr("`name'",1,5)
	}
	else {
		di in red "too many groups for `base'"
		exit 499
	}
	xi_mkun2 `name' `ng'
end