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