let mean array =
  Array.fold_left (fun accu x -> accu +. float x) 0. array
  /. float (Array.length array)