#!/usr/bin/perl
use strict;
use warnings;

my ($n, @tab);
$n=15;
$tab[1]=1;
$tab[2]=2;
$tab[3]=5;
$tab[4]=10;
$tab[5]=18;
$tab[6]=30;
$tab[7]=50;
$tab[8]=100;
$tab[9]=250;
$tab[10]=600;
$tab[11]=1500;
$tab[12]=10000;
$tab[13]=100000;
$tab[14]=1000000;
$tab[15]=10000000;
my ($cnt, $key, $i, @hist, @hist_sum);
while(<>) { 
	($cnt,$key)=split;
#	print $cnt ;
	for($i=1;$i<=$n;$i++) { 
		if( $cnt <= $tab[$i]) { 
			$hist[$i]++;
			$hist_sum[$i]+=$cnt;
			last ;
		}
	}
}
#print $n;
my ($sum, $csum);
print "Kategoria     licznik            suma\n" ;

for ($i=1;$i<=$n;$i++) {
	if (!defined($hist[$i])) {
		last;
	}
	$sum+=$hist[$i];
	$csum+=$hist_sum[$i];
	print "do ",$tab[$i] ;
	print "          ", $hist[$i], "              ", $hist_sum[$i], "\n";
}
print "Razem        ", $sum,"                 ",$csum,"\n";