{
	print "pos $i $testseq\n";
	open OUT, ">results5";
	print OUT "pos $i $testseq\n";
	close OUT;
	
}