let data = let temp = Array.create 30 [] in 
 for i=0 to (List.length edges)-1 do
  temp.(i)<-Ensemble.elements (voisK (fst (List.nth edges i)) (snd (List.nth edges i)))
done;temp