let float_list_sum = fold_left (+.) 0.0