let ia = new Ia.ia_entity stree (* stree est la Streeng des entités *)
ia#set_all

let graphe = new Ia.graph_ia e ia
graphe#init_graph

(* À chaque tour : *)
graphe#play