sig
  val separate_new_message : unit Format_doc.printer
  val filename : string Format_doc.printer
  val quoted_filename : string Format_doc.printer
  val loc : Location.t Format_doc.printer
  val locs : Location.t list Format_doc.printer
end