let input_raw =
  let module Set = Set.Make(struct type t = source let compare = compare endin
  let module M = Format822.RawInput(Setin
  M.input_raw parse_sources_in