let voisins st =
  List.fold_left
    (fun vl tr ->
       if tr.start.nums=st.nums then (tr.stop,1)::vl else vl
    )
    []
    !trans_l