exception EOF
exception UnclosedQuote
exception LexError of string

val token : Lexbuf.t -> Tokens.token
val discard : Lexbuf.t -> unit