let fsum = reduce ~f:( +. )