$y = ssub($x, "HE",       "")
