#!/usr/bin/perl -s -w

#use Encode::Guess;
#use encoding "utf8";
#use Data::Dumper;
use strict;
use warnings;

binmode(STDOUT,":utf8");

use strict;
use Data::Dumper;
undef $/;
my $cmfile=shift;
my $cm = do $cmfile;

#print Dumper $cm;

for my $src_w (keys %{$cm}){
	print "$src_w\n";
	for my $dst_w (keys  %{$cm->{$src_w}}){
		my $ocur = $cm->{$src_w}->{$dst_w};
		print "\t$dst_w\t-\t$ocur\n";
	}
}