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