%{ open Ast %}

%token HTML EOF
%token <string> LITERAL_STR

%left HTML 

%start expr
%type <Ast.expr> expr

%%

expr:
  expr HTML     expr     { Binop($1, html, $3}
| LITERAL_STR            { Str($1) }
