my @k = map { $_->[1] } sort { $b->[0] <=> $a->[0] } @c;
my $r = $k[0];
$r =~ s/([a-z])\s\(.*/$1/;
return $r