sig
  type t = Zones.Data.t Inthash.t
  val create : int -> 'Inthash.t
  val find : 'Inthash.t -> int -> 'a
  val add : Locations.Zone.t Inthash.t -> int -> Locations.Zone.t -> unit
  val pretty : Format.formatter -> Locations.Zone.t Inthash.t -> unit
end