#!/usr/bin/perl

$_ = <>; s/\s+$//;
while (1)
{
	if (/^\[(.*)\]$/)
	{
		unless ($juzbyl = $byl{$1})
		{
			push @znaki, "[$1]\n";
			$byl{$1} = 1;
		}
	}
	elsif (/^$/)
	{
		if (@znaki || $juzbyl)
		{
			if (@znaki)
			{
				$znaki .= join ("", @znaki) . "$znak\n";
			}
			@znaki = ();
			$znak = "";
			$juzbyl = 0;
		}
	}
	else
	{
		unless ($juzbyl)
		{
			(@znaki ? /^[.0]+$/ ? $znak : $znaki[-1] : $font)
				.= "$_\n";
		}
	}
	last unless defined;
	$_ = <>; s/\s+$//;
}

print "$font\n$znaki";
