dosub
dosub(int sc, struct wordent *en, bool global)
Cell *dosub(Node **a, int subop) /* sub and gsub */