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

setmode({flags => 1,nm => 'af'});
while(<>){
  chop;
  print "\n($_)----------\nflags=";
  for(flags($_)){print "$_!";}
  print "----------\npossíveis radicais=";
  for(rad($_)){print "$_!";}
  print "\n----------\nanálise";
  print any2str([fea($_)],1). "\n";
  print "----------\n";
}