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