Rounds.S
module Round : Round.S
type round = Round.t
type data = Round.data
type initial = Round.Data.initial
type players = Round.players
type nonrec t = (round, initial) t
val create : initial -> players -> t
exception InitializingRounds
val round : t -> round
val round_opt : t -> round option
val is_initial : t -> bool
val initial : t -> initial
val current : t -> data
exception UninitializedRound
val next : t -> t
val prev : t -> t
val count : t -> int