#!/usr/local/bin/perl5

$bindex=0;
$cindex=0;
while ($l=<STDIN>)
  {
  if($l !~ /^[A-Z]+$/ ) {
#  This gets rid of the tournament name
    @A=split(/--/,$l);
    chop($A[1]);
    if ("$A[1]" eq " missed cut")
      {
      $C[$cindex]="$A[0]";
      $cindex++;
      }
    else
      {
      $B[$bindex]="$A[1] $A[0]";
      $bindex++;
      }
    }
  }
@sorted = sort {$a <=> $b;} @B;
for ($i=0; $i <= $#sorted; $i++)
  {
  @A=split(/\s+/,$sorted[$i]);
  if ($i == 0)
    {
    $best=$A[1];
    }
  $over=$A[1]-$best;
  $name="$A[2] $A[3]";
  printf("%-26s %6d %6d\n",$name,$A[1],$over);
  }
$over++;
$missed="missed";
for ($i=0; $i<=$#C; $i++)
  {
  printf("%-26s %s %6d\n",$C[$i], $missed, $over);
  }