#!/usr/bin/perl -w

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

downTr({
        -max    => 20,
        -end    => sub { print "[ ",n($c)," ].\n" },
        tree    => sub { "$c" },
        t       => sub { "'$c'+'$v{cat}'+'$v{lemma}', " }   ,
        extract => sub { $c},
        punct   => sub { "'$v{ort}'+'$v{ort}', " }        ,
        source  => sub { ""},
});

sub n{ my $v=shift;
  $v =~ s/\s+/ /g;
  $v
}