#!/usr/athena/bin/perl

$time = time();

sub random_number {
    local($max) = @_;
    local($n);

    srand(time());
    srand(rand(2**15)^$$);
    srand(rand(2**15));
    $n = rand(2**15);

    if ($max <= 256) {
	$n = $n >> 8;
    }
    print "$n, $max\n";
    return ($n % $max);
}

%results = ();

for ($x=0; $x<=200000; $x++) {
    $results{&random_number(2000)}++;
    $time++;
}

foreach $k (keys %results) {
    print "$k\t\t$results{$k}\n";
}