Example from C2[0]:
(* x y percent approxEqual *)
DEFINE approxEqual == 100.0 / rotate [0 =] [pop] [dup rolldown -
swap /] ifte >