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