#!/usr/bin/perl
use jspell;
jspell_dict("port");

while(<>){
  s/\w+/eti($&)/ge;
  print;
}
sub eti {
  $a = shift;

  @an =  fea($a);
  if($an[0]->{CAT}eq"nc") {"$a#$an[0]->{G}$an[0]->{N}";}
  elsif($an[0]->{CAT}eq"a_nc") {"$a#a$an[0]->{G}$an[0]->{N}";}
  elsif($an[0]->{CAT}eq"adj") {"$a#a$an[0]->{G}$an[0]->{N}";}
  else{$a. join("_",featags($a))};
}