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