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