#!/usr/local/bin/perl -w

print scalar(<>), scalar(<>);
$i = 1;
foreach (sort by_points <>) {
    substr($_, 1, 5) = (' ' x (5 - length($i))) . $i;
    print;
    $i++;
}

sub by_points {
    my $acen1 = substr($a, 6, 10);
    my $acen2 = substr($a, 50, 10);
    my $bcen1 = substr($b, 6, 10);
    my $bcen2 = substr($b, 50, 10);
    
    &class($acen1) <=> &class($bcen1) ||
    &class($acen2) <=> &class($bcen2) ||
    $acen1 <=> $bcen1 ||
    $acen2 <=> $bcen2;
}

sub class {
    $_[0] < 660 ? 1 :
    $_[0] < 940 ? 2 :
		  3;
}