sub i{
  my ($g,@c) = @_;
  map{ push @c, o(v($g), $$g[0][0]); w($g) } 0..25;
  ( map{ $_->[1] } sort { $b->[0] <=> $a->[0] } @c )[0]
}