use Lingua::Treebank::SimTreeML dir=> "../F", id => "test";

my %prod=();

downTr({-patt =>  "-w 'comer|dizer'",
         tree => sub{ $c =~ s/\s*\n\s*/ /g;
                      $prod{"$v{cat} -> $c"}++;
                      $v{cat} },
          t   => sub{ $v{cat} },
       punct  => sub{ $v{ort} } 
     });

for(sort {$prod{$b} <=> $prod{$a}} keys %prod) { 
   print "$_ $prod{$_}\n";}