#! /usr/bin/perl -w

while (<>) {
	# $lineno++;
	s/^\s+//;                 # leading space
	next if /^$/;             # blank line
	next if /^#/;             # comment line
	s/\s+$//;                 # trailing space
	($v1, $v2, $count) = split /\s+/;
	$data{$v1}{$v2} += $count;
	$v1{$v1}++;
	$v2{$v2}++;
	$total += $count;
}

sub cell {
	my ($count) = (@_);
	printf "%10d (%5.1f)", $count, $count * 100.0 / $total;
}

for $v1 (sort (keys (%v1))) {
	$rowsum = 0;
	for $v2 (sort (keys (%v2))) {
		$count = $data{$v1}{$v2};
		$rowsum += $count;
		$colsum{$v2} += $count;
		&cell($count);
	}
	&cell($rowsum);
	print "\n";
}
for $v2 (sort (keys (%v2))) {
	&cell($colsum{$v2});
}
&cell($total);
print "\n";