let genSumF fs =
  List.fold (fun sum el -> <@ fun x -> (%sum) x + (%el) x @>
            ) <@ fun x -> 0.0 @> fs