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