let cudf_load_list file =
  let preamble, pkglist =
    match parse_cudf file with
    |None, pkglist, _ -> Cudf.default_preamble, pkglist
    |Some p , pkglist, _ -> p, pkglist
  in
  let from_cudf (p,i) = (p,string_of_int i) in
  let to_cudf (p,v) = (p,int_of_string v) in
  (preamble,[pkglist;[]],from_cudf,to_cudf)