let
nbAgents = (ref 0 : int
Pervasives
.ref)