sig
  val token : Lexing.lexbuf -> Parser.token
  val skip_sharp_bang : Lexing.lexbuf -> unit
  type 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 Lexer.error * Location.t
  val report_error : Format.formatter -> Lexer.error -> unit
  val in_comment : unit -> bool
end