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