type token =
    INT of (int)
  | IDENT of (string)
  | LPAREN
  | RPAREN
  | LBRACKET
  | RBRACKET
  | BAR
  | PLUS
  | MINUS
  | TIMES
  | DIV
  | EQUAL
  | EOD
  | IF
  | THEN
  | ELSE
  | LET
  | REC
  | IN
  | AND
  | CONS
  | SEMICOLON
  | COMMA
  | FUN
  | FUNCTION
  | ARROW
  | MATCH
  | WITH
  | FALSE
  | TRUE

val main :
  (Lexing.lexbuf  -> token) -> Lexing.lexbuf -> MiniML.expr