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"  ;
  ()