%{ open Ast %}

%token HTML EOF
%token <int> LITERAL

%left HTML 

%start expr
%type <Ast.expr> expr

%%

expr:
  expr HTML   expr {Html($1)}
| LITERAL          { Lit($1) }
