program define _gkakwani
	if strpos("`0'", ",")==0 {
		local t ","
	}
	_ginequal `0' `t' index(kakwani)
end // program _gkakwani