%{
open Be_ast
%}

%token <string> ADDRESS
%token <string> COMMAND
%token <string> SEGMENT 
%token <string> COMMENT
%token EOF

%start <Be_ast.expr> prog

%%

prog:
  | e = expr; EOF { e }
  ;

expr:
  | c = COMMENT                              { Comment c }
  | c = COMMAND;                             { Acommand c }
  | c = COMMAND; s = SEGMENT; a = ADDRESS    { Mcommand (c, s, a) }
  | e = expr; COMMENT                        { e }
  ;