val message : Email_message__.Email_lexer_state.t ‑> Lexing.lexbuf ‑> Email_message__.Email_grammar.token