let stat h =
  let d = h.data in
  let size = Array.length d in
  let ne = ref 0 in
  let m = ref 0 in
  let t = ref 0 in
  for i = 0 to size - 1 do
    let n = bucketlist_length d.(i) in
    t := !t + n;
    if n > 0 then incr ne;
    if n > !m then m := n
  done;
  let p = 100 * !ne / size in
  Printf.printf 
    "%6d val, used = %6d / %6d (%2d%%), max length = %6d\n" 
    !t !ne size p !m