#!/usr/bin/perl -w

$slots = 1000;
#$div = 19;
$div = 99;

$per_source = 0;
while ($slots) {
	$per_source_limit = $slots / $div;
	$per_source_limit = 1 if ($per_source_limit == 0);
	if ($per_source < $per_source_limit) {
		$per_source++;
		$slots--;
	} else {
		print "$per_source\n";
		$per_source = 0;
	}
}
print "$per_source\n";