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