The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

%semantic token 'c' 'd' 
%tree

%%

Start:
      S 
;
S:
      ( 'c' <%name Cs * ',' >'d' ) %name Cs_and_d * 
;

%%