let compose = function (g, f) -> (function x -> g (f (x)))