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]*$")))
180 	i2 = atol(r2);
207 char *conj(oper, r1, r2) char *r1, *r2;  in conj()  argument
216 			if(EQL(r2, "0")
217 			    || EQL(r2, ""))
220 				rv = r2;
228 		else if(EQL(r2, "0")
229 		    || EQL(r2, ""))