let pp_pkg_list fmt (l,univ) =
  Format.fprintf fmt "%s" (
    String.concat ", "
    (List.map (fun p ->
      let pkg = Hashtbl.find univ (p.Cudf.package,p.Cudf.version) in
      Printf.sprintf "%s=%s/%s" 
      pkg.Packages.name 
      pkg.Packages.version
      pkg.Packages.architecture
    ) l)
  )