let sum = function f, g -> (function x -> f (x) +. g (x))