%{ open Ast %}

%token HTML EOF

%start expr
%type <Ast.expr> expr

%%

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