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