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)