#! usr/bin/env perl -w
use strict;
use warnings;


my $x=$ARGV[0];
my $y=$ARGV[1];
my $z=$ARGV[2];
my $a=$ARGV[3];
my $b=$ARGV[4];
my $i = 0;

while (<STDIN>)
	{

	if ($_ =~ /^>gi\W(\d+)/ || $_ =~ /^>supercontig/ )
		{
		$i++;
		my $output = "../t_coffee/hits_exon_tcof/$x/$y/$z/$a/$b"."-$i.fa";
		open(OUT, ">$output");

		print OUT "$_";
		}

	else {
		print OUT "$_";
	}
}