let test (stl,_ as auto) =
let st2 = List.hd stl in
let st1 = List.hd (List.tl stl) in
Aorai_option.feedback "test : Etats choisis (%d,%d)" st1.nums st2.nums;
let (res,_) = dijkstra (voisins auto) st1 st2 in
Aorai_option.feedback "Fini.@\n%a"
(Pretty_utils.pp_list ~pre:"@[[" ~sep:",@ " ~suf:"@]]"
(fun fmt st -> Format.fprintf fmt "%d" st.nums))
res