#!/usr/local/bin/perl

$n_cont = 0;
$authors = "";
for($i = 1; $i <= 7; $i++) {
  $line = <STDIN>;
  chop($line);
  $line =~ s!\r!!g;
  $line =~ s!\t! !g;
  print STDOUT $line, "\n";
  }
while ($line = <STDIN>) {
  $line =~ s!\r!!g;
  chop($line);
  $line =~ s!\361!n!g;
  $line =~ s!\366!o!g;
  $line =~ s!\330!Oe!g;
  $line =~ s!\350!e!g;
  $line =~ s!\341!a!g;
  $line =~ s!\351!e!g;
  $line =~ s!\355!i!g;

  if($line =~ /\S+/) {
    if ($line =~ /^([^\t]+)\t+([ 0-9]+)\t+([^\t]+)/) {
      $authors = $1;
      $page = $2;
      $title[1] = $3;
      $n_cont = 1;
      }
    elsif ($line =~ /^([^\t]+)\t+([^\t]+)/) {
      $n_cont++;
      $temp = $1;
      if($n_cont > 1) {
        $authors =~ s/ $//;
        $authors =~ s/ and$//;
        $authors .= ",";
        }
      $authors .= " " . $temp;
      $title[$n_cont] = $2;
      }
    elsif ($line =~ /^\t+([^\t]+)\t*$/) {
      $n_cont++;
      $title[$n_cont] = $1;
      }
    elsif (($line =~ /^([^\t]+)/) && ($n_cont > 0)) {
      $temp = $1;
      if($n_cont > 1) {
        $authors =~ s/ $//;
        $authors =~ s/ and$//;
        $authors .= ',';
        }
      $authors .= " " . $temp;
      }
    else {
      print STDOUT $line, "\n";
      }
    }
  else {
    if($n_cont > 0) {
      $authors =~ s/\s+/ /g;
      $page =~ s/\s+/ /g;
      $title[1] =~ s/\s+/ /g;
      printf STDOUT "%3s    %s\n", $page, $authors;
      for ($i = 1; $i <= $n_cont; $i++) {
        $title[$i] =~ s/\s+/ /g;
        print STDOUT "       ", $title[$i], "\n";
        }
      $n_cont = 0;
      $authors = "";
      print STDOUT "\n";
      }
    }
  }