#!/usr/bin/perl

use visual;
use jspell;
my $a;

while(<>){
  chop;
  print("...$_\n");
  $a= { NAME => $_,
        tax  => [ map 
                  {top2any($_)} 
                  (nlgrep2($_,"#","taxon")) 
                ] 
      };

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

sub top2any {
  eval(shift);
};

sub topgrep { my ($dicname,$a)=@_; 
                        open(D,"<$dicname ") or die "cant find $dicname";
                        my $old = $/;
                        my @r=();
                        $/ = '#';
                        while(<D>){
                                chomp;
                                if(/^.*\b$a\b/i){ push(@r,eval($_));}
                        }
                        return [@r];
                      }