let input_raw_ch ?filter ?(archs=[]) ?(extras=[]) = let module M = Format822.RawInput(Set) in let extras = default_extras @ extras in M.input_raw_ch (parse_packages_in ?filter ~archs ~extras)