#!/usr/bin/perl

use visual;
use jspell;
use Data::Dumper;
my $a;

while(<>){
  $a={};
  chop;
  $a= { NAME => $_,
        FLA  => [flags($_)],
        DER  => [der($_)],
        MV   => [map {chop($_); $_}  
                      nlgrep($_,"/home/jj/natura/dasa/Frases/Fra")] ,
        PRO  => [map {chop($_); $_}  
                      nlgrep($_,"/home/jj/public_html/pln/proverbio.dic")] };

  $a->{RAD}    = [rad($_)];
  $a->{JSPELL} = [fea($_)];

  print Dumper($a);
  #  print any2str($a,2);
  #page($a,$_,"analise dinamica");
}