#!/usr/bin/perl
#
#
use POSIX;

$line = " " . <STDIN>;
chomp($line);
@words = split(/\s+/, $line);
$nwords = $#words;
for ($i = 1; $i <= $nwords; $i++) {
  if ($i % 2 == 1) {
    $game_index = floor($i / 2);
    printf " %6d %5d \n", $game_index, $words[$i];
  }
}
printf "\n";

exit 0;
   

