sig val next_token : Lexing.lexbuf -> Cparser.token end