sub i{
  my ($g,$l,$t) = @_;
  my @c;
  for(0..25){
    my $v = v($g,$l,$t);
    push @c, o($v,$$g[0][0]);
    w($g)
  }
  my @k = map{ $_->[1] }
         sort{ $b->[0]<=>$a->[0] } @c;
  my $r = $k[0];
  $r =~ s/([a-z])\s\(.*/$1/;
  return $r
}