(VAR x y) (RULES f (x, f (y, a)) -> f (a, f (f (f (x, a), a), y)))