%semantic token 'c' 
%{
use Data::Dumper;
$Data::Dumper::Indent = 1;
%}
%%
S:      'c'+  D+ 
           { 
              print Dumper($_[1]);
              print $_[1]->str."\n";
              print Dumper($_[2]);
              print $_[2]->str."\n";
           } 
;

D: 'd'.d
     {
       Parse::Eyapp::Node->new(
         'DES(TERMINAL)', 
          sub { 
            my ($DES, $TERMINAL) = @_;
            $TERMINAL->{attr} = $d;
          }
       );
     }
;

%%

sub Run {
  my ($self) = shift;
  return $self->YYParse( yybuildingtree => 1 );
}