let rpm_load_universe l =
  let (pr,cll,f,t) = rpm_load_list [l] in
  (pr,Cudf.load_universe (List.flatten cll), f, t)