let mean_float array =
  Array.fold_left (+.) 0. array /. float (Array.length array)