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