#!/usr/bin/env perl

my $s;
my $i=0;
my $total;
my @v;
my $forward;
my $reverse;
my $longforward;
my $longreverse;
my @vecforward;
my @vecreverse;


open F0, $ARGV[0];
while ( <F0> ){ $s.=$_;}
close F0;


@v=split (//, $s);



while ($v[$i] ne "/"){
	$forward.=$v[$i];
	$i++;
}


$i=$i+2;
while ($v[$i] ne "/"){
	$reverse.=$v[$i];
	$i++;
}


@vecforward=split (//,$forward);
$longforward=scalar(@vecforward);


@vecreverse=split (//,$reverse);
$longreverse=scalar(@vecreverse);




if ( $longforward >= $longreverse ) {
	print "$forward";
}
else { print "$reverse"; 
}