val token : Lexing.lexbuf -> Parser.token
val skip_sharp_bang : Lexing.lexbuf -> unit
type error =
  Lexer.error =
    Illegal_character of char
  | Illegal_escape of string
  | Unterminated_comment
  | Unterminated_string
  | Unterminated_string_in_comment
  | Keyword_as_label of string
  | Literal_overflow of string
exception Error of error * Location.t
val report_error : Format.formatter -> error -> unit
val in_comment : unit -> bool