#!/usr/bin/perl



#
use Lingua::BiTerm;
use Data::Dumper;
$file1=shift;

$a=newFromFile Lingua::BiTerm($file1);
print "palavra:";
while(<>)
{
	chomp$_;
	$b=$a->grep($_);
	$b->calcStat("right fisher");
	$b->rank();
	$result=$b->printToString({kbest => 5});
	print $result;
	print "palavra:";
	

}