use strict;
use warnings;

my @counts;

while (1) {
	my $count = 0;
	my $sum = 0;
	while (1) {
		$sum += rand(rand(rand(rand(158))));#need to refine
		print "$sum\n";
		($sum <= 158) ? $count ++ : last; 
	}
	$counts[$count] ++;
	print "choose $count\n";
	sleep 1;
}