let compute_pool universe =
let size = Cudf.universe_size universe in
let conflicts = init_conflicts universe in
let c = Array.init size (fun i -> get_package_list conflicts i) in
let d =
Array.init size (fun i ->
let p = inttovar universe i in
List.map (resolve_vpkgs_int universe) p.Cudf.depends
)
in
(d,c)