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

my $verbo=shift or die("Error\nUsage: $0 verb\n");

my %expand = (
  prp         => 1,
  adv         => 1,
  "pron-indp" => 1);

my %prod=();

downTr({-patt =>  "-w '$verbo'",
         tree => sub{ $c =~ s/\s*\n\s*/ /g;
                      $prod{"$v{cat} -> $c"}++ if $c =~ /$verbo/;
                      $v{cat} },
          t   => sub{ if($v{lemma} eq $verbo){
                         if($v{cat} eq "v-fin"){ "[$verbo-fin]"}
                         else                  { "[$verbo-inf]"}}
                      elsif($expand{$v{cat}}){"[$v{lemma}]"}
                      else{"[$v{cat}]"}},
       punct  => sub {$v{ort} } 
     });

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