NOGE
gh->g_list = NOGE;
for (gp = gh->g_list; gp != NOGE; gp = gpnext) {
for (gp = gh->g_list; gp != NOGE; gp = gp->ge_link) {
if (gp == gh->g_list && gp->ge_link == NOGE)
for (gp = gh->g_list; gp != NOGE; gp = gp->ge_link)