let clear h =
  for i = 0 to Array.length h.data - 1 do
    h.data.(i) <- Empty
  done