#!/usr/bin/perl -CSDA

use utf8; 
use Modern::Perl qw{2017}; 
use JSON; 
use Text::Unidecode;

require "./narzędzia";

my $f = flattened_json(JSON->new->relaxed->decode(do { local $/; <STDIN> })); 

print "$_ &#10132; $$f{$_}\n" for 
	sort { 
		lc(unidecode($a =~ s/ &#10132; ([0-9]+)/sprintf " &#10132; %09d", $1/ger)) 
		cmp 
		lc(unidecode($b =~ s/ &#10132; ([0-9]+)/sprintf " &#10132; %09d", $1/ger)) 
	} 
	keys %$f;