(* The lexical analyzer *)
val token: Lexing.lexbuf -> Parser.token
type error =
Illegal_character
| Unterminated_comment
| Unterminated_string
exception Error of error * int * int
val report_error: error -> unit