%{ open Ast %}

%token PLUS EOF
%token <int> LITERAL

%left HTML 

%start expr
%type <Ast.expr> expr

%%

expr:
  expr HTML   expr { Binop($1, Add, $3) }

