#!/usr/bin/perl		--	# -*-Perl -*-
my $title = $ARGV[0];
my $authors = $ARGV[1];
my $date = $ARGV[2];
# scalar(<STDIN>);
# print "\n\n";
print "\n";
my $page = 1;
while (<STDIN>) {
    if (//) {
	s/\d\d-\d\d-\d\d .\d:\d\d .* Page +(\d+) */\n$authors                                                 [Page $page]\n\nInternet Draft    $title    $date/ ||
            s//\n$authors                                                 [Page $page]\n/;
	$page = $1;
    };
    print $_;
}