#!/usr/bin/perl -w

use strict;

my (%freq, $hanzi, $h);

<>;

while (<>) {
	($hanzi) = /^((?:..)+?) / or die "invalid line $_";
	while ($h = substr $hanzi, 0, 2, "") {
		$freq{$h}++;
	}
}

my @inorder = sort {$b->[1] <=> $a->[1]} map [$_, $freq{$_}], keys %freq;

for (@inorder) {
	printf "%s %6d\n", @$_;
}