#!/usr/bin/perl -w

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

my %change=(ser => 1, ter => 1, estar => 1);

downTr({
  -max => 50,
  -end => sub { print $c },
  t    => sub{
    $v{lemma} ||= "????";
    $v{cat} = "$v{lemma}-$v{cat}" if $change{$v{lemma}};
    toxml}
});