#!/usr/bin/perl -w

use strict;

my @v;
my $inici=0;
my $long=0;
my $i=0;
my $cont1=0;
my $cont2=0;
my $seq1="";
my $seq2="";
my $l;

open F0, $ARGV[0];

while (<FO>){$l.=$_;}
close F0;

@v=split(//,$l);
$long=scalar(@v);
$i=0;

while ($i < $long)
{
	if ($v[$i] eq ">")
	{
		$inici++;
	}
		
	if ($inici==2)
	{
		$seq2.=$v[$i];
		$cont2++;		
	}
	else
	{
		$seq1.=$v[$i];
		$cont1++;
	}
	$i++;
		
}

if ($cont1 > $cont2 || $cont1 == $cont2)
{
	print $seq1;
}
else
{
	print $seq2;
}