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