let fold_edges f t acc = let racc = ref acc in for v1 = 0 to Array.length t.vertexes - 1 do SetInt.iter (fun v2 -> racc := f v1 v2 !racc) !(snd t.vertexes.(v1)) done; !racc