%{ open Ast %}

%token PLUS EOF
%token <string> STRING

%left HTML 

%start expr
%type <Ast.expr> expr

%%

expr:
  expr HTML   expr { }
| STRING          { Lit($1) }
