let
array_sum x =
Array
.fold_left (+.) 0. x