# ListAndAction.eyp
%{
my $num = 0;
%}
%%
S: 'c'
{
print "S -> c\n"
}
| ('a' {$num++; print "Seen <$num> 'a's\n"; $_[1] }) S 'b'
{
print "S -> (a ) S b\n"
}
;
%%
# eyapp -C ListAndAction.eyp
#./ListAndAction.pm -c 'a a c b b'