#!/usr/local/bin/perl5

%ex	=	();
%pagenum	=	(	raw,	"",	e,	"",	j,	"");
$count_init	=	200;
%count	=	(	e,	$count_init,	j,	$count_init);

while(	<>	)	{
	if	(/^(!{0,7})(!*)(	*)([ej])(0[0-9]{3})(	*.*$)/)	{
		$ex{'1'}	=	$1;
		$ex{'2'}	=	$2;
		$n	=	"\n";
		$tabs	=	$3;
		$tabs2	=	$tabs;

		if	(	$ex{'1'}	ne	''	)	{
			if	(	$ex{'2'}	ne	''	)	{
				$tabs2	=	"	$tabs";
			}
		}	elsif	(	$tabs	eq	/^\t{0,1}$/	)	{
			$n	=	"";
		}

		$lang	=	$4;
		$pagenum{raw}	=	$5;
		if	($pagenum{$lang}	eq	$pagenum{raw})	{
			$count{$lang}	=	$count{$lang}	+	10;
		}	else	{
			$count{$lang}	=	$count_init;
		}

#		$_ = "$ex{'1'}$ex{'2'}$tabs<A NAME=\"$lang$pagenum{raw}_$count{$lang}\" HREF=\"#$lang$pagenum{raw}_$count{$lang}\">#$lang$pagenum{raw}_$count{$lang} #</A>$n$tabs2$6\n";
		$_ = "$ex{'1'}$ex{'2'}$tabs$lang$pagenum{raw}_$n$tabs2$6\n";
		$pagenum{$lang}	=	"$pagenum{raw}";
	}

#	if	/([ej]0[0-9]{3})	/
#<A NAME="$lang_$count" HREF="$lang_$count">#$lang #</A>	@;
	print;
}