#!/usr/local/bin/perl -w
#$line = $_;
#$_ = (split /,/)[0];
#$n = `getlabel -rq $_`;
#print $line if $n > 47;

my @preterms = qw( AUX AUXG CC CD DT EX FW IN JJ JJR JJS LS MD NN NNS
NNP NNPS PDT POS PRP PRP$ RB RBR RBS RP SYM TO UH VB VBD VBG VBN VBP VBZ
WDT WP WP$ WRB # $ \. \, \: -RRB- -LRB- `` '' -NONE-);

my %preterms;
foreach my $label (@preterms) { $preterm{$label} = 1; }

while (<>) {
  my $line = $_;
  my $label = (split /(?<!\\),/)[0];
  print $line unless $preterm{$label};
}
