Reduce set of agents to 5

It simplifies many things

CoolUtils.ml

@@ -34,7 +34,7 @@ module TList = struct
     let prod la lb = List.concat (List.map (fun a -> List.map (fun b -> (a,b)) lb) la)
 end
 
-let agents = ref ([|1;2;3;4;5;6;7;8;9;10|])
+let agents = ref ([|1;2;3;4;5|])
 
 let cl_get_agents () = !agents
 let cl_set_agents arr = ignore (