operate
asx(vp, subscr, operate(op, gv->vec[subscr - 1], p));
asx(vp, subscr, operate(op, getvx(vp, subscr)->vec[subscr - 1], p));
set(vp, operate(op, value(vp), p));
tchar *operate(tchar, tchar *, tchar *);
operate(c, cnt);
operate('$', 1);
operate('^', 1);
operate('H', i);