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

my %prod=();

downTr( { 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";}