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