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