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