#!/usr/bin/perl
$readNext = 0;
$ignoreLine = 0;
$lastWasEndPage=0;
while(<STDIN>)
	{
	if ( /^EndPage\n/ )
		{
		$lastWasEndPage=1;
		}
	if ( /^\n/ )
		{
		if ( $lastWasEndPage == 1 )
			{
			$ignoreLine = 2;
			$lastWasEndPage = 0;
			}
		}
	if ( $readNext != 0 )
		{
		s/ \(\d*\) / \($readNext\) /;
		$readNext = 0;
		}
	if ( /%%Page: \d/ )
		{
		@array2 = split(/ / );
		$readNext = $array2[1];
		}

	if ( $ignoreLine == 0 )
		{
		print $_;
		}
	else
		{
		$ignoreLine =$ignoreLine - 1;
		}
	}


