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

while(<>){
  chop;
  print "\n($_)----------\nflags=";
  for(flags($_)){print "$_\n";}
  print "----------\nderivadas=";
  for(der($_)){print "$_\n";}
  print "----------\nngrep em provérbios=";
  for(nlgrep($_,"/home/jj/public_html/pln/proverbio.dic")){
      print "\n$_";}
  print "----------\npossíveis radicais=";
  for(rad($_)){print "$_\n";}
  print "----------\nanálise";
  print any2str([fea($_)],1). "\n";
  print "----------\n";
}