Module Prediction

type 'model t
val create : me:int -> players:int -> update:(string array -> 'model -> 'model) -> 'model -> 'model t
val step : 'model t -> seq:int -> string -> unit
val correct : 'model t -> world:'model -> acked:int -> latest:string array -> unit
val model : 'model t -> 'model
val mispredictions : 'model t -> int