#!/usr/bin/perl

$_ = <>; s/\s+$//;
while (1)
{
	if (/^\[(.*)\]$/)
	{
		$znaki .= "$_\n";
		$id = $1 unless defined $id;
	}
	elsif (/^$/)
	{
		if ($znaki ne "")
		{
			push @font,
			{
				ZNAK => $znaki . $znak,
				ID => $id,
			};
			$znaki = "";
			$id = undef;
			$znak = "";
		}
	}
	else
	{
		if ($znaki ne "")
		{
			if (/^[.0]+$/)
			{
				$znak .= "$_\n";
			}
			else
			{
				$znaki .= "$_\n";
			}
		}
		else
		{
			$font .= "$_\n";
		}
	}
	last unless defined;
	$_ = <>; s/\s+$//;
}

print "$font\n";

foreach (sort {$a->{ID} cmp $b->{ID}} @font)
{
	print "${$_}{ZNAK}\n";
}
