sig
  exception DuringParsing of Lexing.position
  exception DuringLexing of Lexing.position * string
  exception DuringIO of string
  val string_of_error : exn -> string
end