sig type cookie_token = [ `ASSIGN | `EOF | `QSTRING of string | `SEP | `TOKEN of string ] val token : Lexing.lexbuf -> Cookie_lexer.cookie_token end