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