let product = function f, g -> (function x -> f (x) *. g (x))