sig
  type t = Int_set.t
  val empty : t
  val to_string : t -> string
  val add_range : t -> int -> int -> t
  val add : t -> int -> t
  val mem : t -> int -> bool
  val ranges : t -> (int * int) list
  val max : t -> int option
  val min : t -> int option
  val ounit_tests : unit -> OUnit.test
end