#!/usr/bin/perl

use jspell;

jspell_dict("port");

setstopwords("como");

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