type error =
  Syntaxerr.error =
    Unclosed of Location.t * string * Location.t * string
  | Other of Location.t
exception Error of error
exception Escape_error
val report_error : Format.formatter -> error -> unit