#!/usr/bin/perl -w

use strict "refs";

$debug = 0;

@resultatsFinaux = ();

while ($ligneEquipe = <STDIN>) {
    chomp($ligneEquipe);
    $ligneEquipe =~ s/\s(\s)+/ /g;
    $ligneEquipe =~ s/ //;
    print "ligneEquipe = \"$ligneEquipe\"\n" if $debug;
    my ($temps, $equipe, $probleme) = split(/ /, $ligneEquipe);
    print "temps = $temps, equipe = $equipe, probleme = $probleme\n" if $debug;
    
    $PROBLEME = $probleme;
    $PROBLEME =~ tr/a-z/A-Z/;

    if (! defined $temps{$equipe}) {
	$temps{$equipe} = 0;
	$nbReussis{$equipe} = 0;
	$nbRates{$equipe}{$PROBLEME} = 0;
    }
    if (! defined  $nbRates{$equipe}{$PROBLEME}) {
	$nbRates{$equipe}{$PROBLEME} = 0;
    }
    if (("a" le $probleme) && ($probleme le "z")) {
	$nbRates{$equipe}{$PROBLEME} += 1;
    } else {
	$nbReussis{$equipe} += 1;
	$temps{$equipe} += $temps + $nbRates{$equipe}{$PROBLEME} * 20;
    }
}
 
foreach $equipe ( keys(%temps) ) {
    print "equipe = $equipe; nbReussis = $nbReussis{$equipe}; temps = $temps{$equipe}\n" if $debug;
    push( @resultatsFinaux, [$equipe, $nbReussis{$equipe}, $temps{$equipe}] );
}

if ($debug) {
    print "=====================\n";
    #print "contenu de resultats = @resultatsFinaux\n";
    for( my $i = 0; $i < $#resultatsFinaux+1; $i++ ) {
	print "$resultatsFinaux[$i]->[0] $resultatsFinaux[$i]->[1] $resultatsFinaux[$i]->[2]\n";
    }
}
@resultatsTries = sort comparer @resultatsFinaux ;

for( my $i = 0; $i < $#resultatsTries+1; $i++ ) {
    print "$resultatsTries[$i]->[0] $resultatsTries[$i]->[1] $resultatsTries[$i]->[2]\n";
}

sub comparer {
    print "comparer( $a, $b )\n" if $debug;
    if ($a->[1] == $b->[1]) {
	return( $a->[2] <=> $b->[2] );
    } else {
	return( -1 * ($a->[1] <=> $b->[1]) );
    }    
}
