getvx
struct varent *v = getvx(vp, subscr);
struct varent *gv = getvx(vp, subscr);
asx(vp, subscr, operate(op, getvx(vp, subscr)->vec[subscr - 1], p));
struct varent *getvx(tchar *, int);