use strict;

my $maxexp = 0;
my $maxline = 0;
my $line = 1;
open(F, "base_exp.txt") or die $!;
while (my $l = <F>) {
  chomp($l);
  my($a, $x) = split(/,/, $l);
  my $e = log($a) * $x;
  if ($e > $maxexp) {
    $maxexp = $e;
    $maxline = $line;
  }
  ++$line;
}
print $maxline,"\n";