let add h hkey info =
  let i = hkey mod (Array.length h.data) in
  let bucket = Cons(info, h.data.(i)) in
  h.data.(i) <- bucket;
  h.size <- h.size + 1;
  if array_too_small h then resize h