let histogram_full interval_min interval_max nb_columns =
  let pitch = (interval_max -. interval_min) /. float nb_columns in
fun list ->
  let result = Array.make nb_columns 0 in
  let steer elt =
    let bucket = int_of_float ((elt -. interval_min) /. pitch) in
    if 0 <= bucket && bucket < nb_columns then
      result.(bucket) <- succ result.(bucket) in
  List.iter steer list;
  result