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