Select Code to Download

my $grammar = q{
  list:  <leftop: item ',' item> 
  item: word list <commit>
      | word 
  word: /\w+/  
};

my $grammar = q{
  list: '(' item(s) ')'
  item: list <commit>
        | word
  word: /[^()]*/  
};