#!/usr/athena/bin/perl

$|=1;
while(<>){
	split;
	$sz =$_[$#_];
	$url = $_[6];
	$k = int($sz/100);
	$hist{$k}++;
	$ct++;
# 6, 16, 19, 38, 8, 48, 
	if($k == -1){
		print "$url\n";
	}
	if($ct > 1000){
		print ".";
		$ct = 0;
	}
}
print("\n");
for $s (sort {$a <=> $b;} keys %hist) {
	$ticks = "-"x($hist{$s}/200);
	print("$s\t$ticks\n");
}