141 rel(int oper, char *r1, char *r2)  in rel()  argument
145 	if(ematch(r1, "-\\{0,1\\}[0-9]*$") && ematch(r2, "-\\{0,1\\}[0-9]*$"))  in rel()
146 		i = atol(r1) - atol(r2);  in rel()
148 		i = strcmp(r1, r2);  in rel()
172 char *arith(oper, r1, r2) char *r1, *r2;  in arith()  argument
177 	if(!(ematch(r1, "-\\{0,1\\}[0-9]*$") && ematch(r2, "-\\{0,1\\}[0-9]*$")))
179 	i1 = atol(r1);
207 char *conj(oper, r1, r2) char *r1, *r2;  in conj()  argument
214 		if(EQL(r1, "0")
215 		    || EQL(r1, ""))
222 			rv = r1;
225 		if(EQL(r1, "0")
226 		    || EQL(r1, ""))
232 			rv = r1;