sig
  type 'a t
  val create : 'a -> 'a Inria_table.t
  val emit : 'a Inria_table.t -> 'a -> unit
  val iter : 'a Inria_table.t -> ('a -> unit) -> unit
  val trim : 'a Inria_table.t -> 'a array
  exception Error
  val get : 'a Inria_table.t -> int -> 'a
  val size : 'a Inria_table.t -> int
end