1#!/usr/local/bin/perl
2
3#node     10 ->   4
4
5while (<>)
6	{
7	next unless /^node/;
8	chop;
9	@a=split;
10	$num{$a[3]}++;
11	}
12
13@a=sort {$a <=> $b } keys %num;
14foreach (0 .. $a[$#a])
15	{
16	printf "%4d:%4d\n",$_,$num{$_};
17	}
18