type token =
    IDENT of (string)
  | LET
  | EQUAL
  | LAMBDA
  | LPAREN
  | RPAREN
  | DOT
  | EOF
  | SEMI

val program :
  (Lexing.lexbuf  -> token) -> Lexing.lexbuf -> Node.exp list