137 rel(int oper, char *r1, char *r2)  in rel()  argument
141 	if(ematch(r1, "-\\{0,1\\}[0-9]*$") && ematch(r2, "-\\{0,1\\}[0-9]*$"))  in rel()
142 		i = atol(r1) - atol(r2);  in rel()
144 		i = strcmp(r1, r2);  in rel()
168 char *arith(int oper, char *r1, char *r2)  in arith()  argument
173 	if(!(ematch(r1, "-\\{0,1\\}[0-9]*$") && ematch(r2, "-\\{0,1\\}[0-9]*$")))  in arith()
175 	i1 = atol(r1);  in arith()
203 char *conj(int oper, char *r1, char *r2)  in conj()  argument
210 		if(EQL(r1, "0")  in conj()
211 		    || EQL(r1, ""))  in conj()
218 			rv = r1;  in conj()
221 		if(EQL(r1, "0")  in conj()
222 		    || EQL(r1, ""))  in conj()
228 			rv = r1;  in conj()