sig
  type t
  val make : Group.grouping_spec -> Group.GROUP_LIST.t
  val add_contest : Group.contest -> Group.GROUP_LIST.t -> unit
  val sort : Group.GROUP_LIST.t -> unit
  val iteri : (int -> Group.t -> unit) -> Group.GROUP_LIST.t -> unit
  val length : Group.GROUP_LIST.t -> int
end