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