%{ %}

%token EOF
%token STARTA HREF EQ QUOTE GT ENDA
%token STARTB STARTI STARTEM
%token ENDB ENDI ENDEM
%token <string>WORD

%start html
%type <Ast.html> html
%%

word_list
  :                    { [] }
  |  WORD word_list    { $1 :: $2 };

html
  :  word_list                                     { Ast.Words $1 }
  |  STARTA HREF EQ QUOTE WORD QUOTE GT html ENDA  { Ast.A ($5,$8) }
  |  STARTB html ENDB                              { Ast.B $2 }
  |  STARTI html ENDI                              { Ast.I $2 }
  |  STARTEM html ENDEM                            { Ast.I $2 };