#!/usr/bin/perl

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

print "$font\n";

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