155714Skris#!/usr/local/bin/perl
255714Skris
355714Skris#node     10 ->   4
455714Skris
555714Skriswhile (<>)
655714Skris	{
755714Skris	next unless /^node/;
855714Skris	chop;
955714Skris	@a=split;
1055714Skris	$num{$a[3]}++;
1155714Skris	}
1255714Skris
1355714Skris@a=sort {$a <=> $b } keys %num;
1455714Skrisforeach (0 .. $a[$#a])
1555714Skris	{
1655714Skris	printf "%4d:%4d\n",$_,$num{$_};
1755714Skris	}
18