let test (stl,trl) =
states_l:=stl;
trans_l:=trl;
let st2 = List.hd stl in
let st1 = List.hd (List.tl stl) in
Aorai_option.feedback "%s" ("test : Etats choisis ("^(string_of_int st1.nums)^","^(string_of_int st2.nums)^")\n") ;
let (res,_) = dijkstra voisins st1 st2 in
Aorai_option.feedback "Fini.\n[" ;
List.iter
(fun st -> Aorai_option.feedback "%d," st.nums)
res;
Aorai_option.feedback "]\n" ;
()