#!/usr/bin/perl

$|=1;

@mark = (" ", ".", ",", ":", ";", "x", "X", "#"); 

while(<>){
	if(/^$/){
		$d=0;
		$x++;
		print STDERR ".";
		next;
	}
	if(($d <4) || ($d > 11)){
		$d++;
		next;
	}
	@v = split;
	for $y (0..$#v){
		$t{"$x $y"} += $v[$y];
		$maxy = ($y > $maxy) ? $y:$maxy;
	}
	$d++;
}
$maxx = $x;
for $y (0..$maxy){
	for $x (0..$maxx){
#		print($mark[int($t{"$x $y"}/300)], " ");
		print(int($t{"$x $y"}/50), " ");
	}
	print("\n");
}