let iter f h =
  let rec bucket_iter = function
    | Empty -> ()
    | Cons (x,l) -> f x; bucket_iter l
  in
  Array.iter bucket_iter h.data