%{ open Ast %}

%token HTML EOF
%token <string> STRING

%left HTML 

%start expr
%type <Ast.expr> expr

%%

expr:
  expr HTML   expr {Html($1)}
| STRING          { Str($1) }
