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