operate
asx(vp, subscr, operate(op, gv->vec[subscr - 1], p));
set(vp, operate(op, value(vp), p));
static Char *operate(int, Char *, Char *);
goto operate;
goto operate;
goto operate;
operate:
goto operate;