let sum = reduce ~f:( + )