let graphe = [|[1,1;2,2];[2,3;3,4];[3,1];[]|];;

# prim graphe;;
- : (int * int) list = [2, 3; 0, 2; 0, 1]