exception EOF
exception UnclosedQuote
exception LexError of string

val discard : Lexbuf.t -> unit
(** Discard the remaining element in the location until the end of this one.
    Used in case of unrecoverable error *)

val main : Lexbuf.t -> Tokens.token