%semantic token 'c' 'd' 
%tree

%%

S:
      ( 'c' <* ',' >'d' ) * 
;

%%