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