

open IN, $ARGV[0] || die "$!";
my $n=0;
	while(<IN>){
	   chomp;
           $n++;
           my @tem = split(/\s+/);	
           print ">seq".$n."_x".$tem[1]."\n".$tem[2]."\n"; 
}
	close IN;
