let ( %% ) f g = fun x y -> f (g x y)