sig
  type tourney
  val make : Entry.slot list -> Tourney.tourney
  val won : Tourney.tourney -> string -> Tourney.tourney
  val select_grouped :
    Group.grouping_spec -> Tourney.tourney -> Group.GroupList.t
  val num_rounds : Tourney.tourney -> int
end