type token =
  | Tident of (
# 51 "lex/parser.mly"
        string
# 6 "lex/parser.mli"
)
  | Tchar of (
# 52 "lex/parser.mly"
        int
# 11 "lex/parser.mli"
)
  | Tstring of (
# 53 "lex/parser.mly"
        string
# 16 "lex/parser.mli"
)
  | Taction of (
# 54 "lex/parser.mly"
        Syntax.location
# 21 "lex/parser.mli"
)
  | Trule
  | Tparse
  | Tparse_shortest
  | Tand
  | Tequal
  | Tend
  | Tor
  | Tunderscore
  | Teof
  | Tlbracket
  | Trbracket
  | Trefill
  | Tstar
  | Tmaybe
  | Tplus
  | Tlparen
  | Trparen
  | Tcaret
  | Tdash
  | Tlet
  | Tas
  | Thash

val lexer_definition :
  (Lexing.lexbuf  -> token) -> Lexing.lexbuf -> Syntax.lexer_definition