#!/usr/bin/perl -w

#use strict;
use Data::Dumper;
use Lingua::Treebank::SimTreeML dir => "../F", id  => "test";
my $dic = {};

downTr({ 
          t => sub{ 
             unless($c){ warn("Error: empty token\n");
               $c="???";
               $v{lemma}="???";
             }
             unless($v{cat}){ warn("Error: $c has no CAT\n");
               $v{cat}="???";
             }
             unless($v{lemma}){ warn("Error: $c has no Lemma\n");
               $v{lemma}="???";
             }
             $dic->{$c}{"$v{cat}=$v{lemma}"}++ 
          } 
});

print Dumper $dic;