sig
  type token =
      WHILE
    | VERTICALBARVERTICALBAR
    | STRUCT
    | STAR
    | SLASH
    | SIZEOF
    | SEMICOLON
    | RPAR
    | RETURN
    | RBRACE
    | PLUS
    | MINUS
    | LPAR
    | LBRACE
    | INTEGER of int32
    | INT
    | IF
    | IDENT of string
    | EQOP of Ptree.binop
    | EQ
    | EOF
    | ELSE
    | COMP of Ptree.binop
    | COMMA
    | BANG
    | ARROW
    | AMPERSANDAMPERSAND
  exception Error
  val file :
    (Stdlib.Lexing.lexbuf -> Parser.token) ->
    Stdlib.Lexing.lexbuf -> Ptree.file
end