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