#!/usr/bin/perl

use jspell;

jspell_dict("port","cal");

setstopwords("como");

while(<>){
  chop;
  print "\n($_)----------\n";
  for(flags($_)){print "$_\n";}
  print "----------\n";
  for(der($_)){print "$_\n";}
  print "----------\n";
  for(nlgrep($_, "/home/jj/public_html/pln/proverbio.dic")){print $_;}
  print "----------\n";
  for(nlgrep3($_, 3,"/home/jj/public_html/pln/proverbio.dic")){print $_;}
  print "----------\n";
  for(nlgrep2($_, '<e>' ,"camoes.cor")){print $_;}
  print "----------\n";
  for(rad($_)){print "$_\n";}
  print "----------\n";
  print any2str([fea($_)],1). "\n";
  print "----------\n";
}