let conjdeps universe pkglist =
let idlist = List.map (CudfAdd.vartoint universe) pkglist in
let g = Defaultgraphs.IntPkgGraph.G.create () in
List.iter (fun id ->
Defaultgraphs.IntPkgGraph.conjdepgraph_int g universe id
) idlist ;
g