exception EOF
exception UnclosedQuote

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