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

downTr({ -patt => "-w comer",
         -begin => sub{print "* "},
         -end  => sub{print "\n"},
          t    => sub{print "$c, "  if $v{cat} eq "n" } });