#!/usr/athena/bin/perl

	srand;
while(1){
	$nbits++;
	if(rand(1)*2 > 1 ){
		push(@bits, 1);
	}
	else{
		push(@bits, 0);
	}
	$nogood = 0;
	if($#bits >= 15){
	foreach $b (@bits){
		if($b != 0){
			$nogood = 1;
		}
}
	if(!$nogood){
		print("Found 16 0's after $nbits bits\n");
		exit;
	}
	shift(@bits);
}
	if($ct > 499){
		$ct = 0;
		$sec = int($nbits/2400);
		print("Passed $nbits bits ($sec seconds)\n");
	}
	$ct++;
}