#!/usr/bin/perl -w
use strict;


my $pwm_steps = 256;
my $brightness_step_percent = 10;

my $last_step=1;
print "0\n1\n";
for (my $step = $last_step; $step < $pwm_steps; $step++) {
    my $i = 1.0*($step-$last_step)/$last_step;
    if ($i * 100 >= $brightness_step_percent) {
	print "$step\n";
	$last_step = $step;
    }
}