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