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