#!/usr/bin/perl -l

use strict;

my %cc = ();

foreach (@ARGV) {
	my $file = $_;
	open(FILE, $file);
	print "### file $file";
	while (<FILE>) {
		chomp;
		next unless length;
		next unless /^U/;
		my ($char, $lang) = split (/[\t\s;]/);
		my ($ll) = $cc{$char};
		$ll .= ":$lang";
		#print "$char/$lang";
		$cc{$char} = $ll;
	}
}

print "### all characters";
foreach (sort keys %cc) {
	print $_, "\t", join ':', sort split /:/, $cc{$_};
}