rem: setfval(z, v); return(z);
add: (void) setfval(z, v); return (z);
context: Cell *sindex(a, nnn) Node **a;{	register Cell *x, *y, *z;	register uchar *s1, *s2, *p1, *p2, *q;	Awkfloat v = 0.0;	x = execute(a[0]);	s1 = getsval(x);	y = execute(a[1]);	s2 = getsval(y);	z = gettemp("");	for (p1 = s1; *p1 != '\0'; p1++) {		for (q=p1, p2=s2; *p2 != '\0' && *q == *p2; q++, p2++)			;		if (*p2 == '\0') {			v = (Awkfloat) (p1 - s1 + 1);	/* origin 1 */			break;		}	}	tempfree(x, "");	tempfree(y, "");	setfval(z, v);	return(z);}