let input_raw = let module Set = Set.Make(struct type t = source let compare = compare end) in let module M = Format822.RawInput(Set) in M.input_raw parse_sources_in