use strict;
my $max = $ARGV[0];


my @ratio_list = (0,1..$max); 
my @minutes_list;
foreach my $k(@ratio_list){
     my $inter = 10 * $ratio_list[$k];
	if ($inter != 0){
		push @minutes_list, $inter;
	}
}