782 	char *s1, *s2, *p1, *p2, *q;  in sindex()  local
792 		for (q=p1, p2=s2; *p2 != '\0' && *q == *p2; q++, p2++)  in sindex()
1144 Cell *cat(Node **a, int q)	/* a[0] cat a[1] */  in cat()  argument
1747 	char *sptr, *pb, *q;  in sub()  local
1780 				for (q = patbeg; q < patbeg+patlen; )  in sub()
1781 					*pb++ = *q++;  in sub()
1808 	char *rptr, *sptr, *t, *pb, *q;  in gsub()  local
1845 							for (q = patbeg; q < patbeg+patlen; )  in gsub()
1846 								*pb++ = *q++;  in gsub()
1873 						for (q = patbeg; q < patbeg+patlen; )  in gsub()
1874 							*pb++ = *q++;  in gsub()