let input_raw_ch parse ch =
let timer = Util.Timer.create "Debian.Format822.input_raw_ch" in
Util.Timer.start timer;
let s =
let l = parse "" ch in
List.fold_left (fun s x -> Set.add x s) Set.empty l
in
info "total packages %n" (Set.cardinal s);
Util.Timer.stop timer (Set.elements s)