let mean_float_list list =
  let sum = List.fold_left (+.) 0. list in
  sum /. (float (List.length list))