#!/usr/bin/perl
use strict;
use warnings;
my $m = shift @ARGV;
chomp $m;
my %func = (
'01' => sub { return $m / ( ( 10 + $_[0] )**0.1 ) },
'02' => sub { return $m / ( ( 10 + $_[0] )**0.2 ) },
'03' => sub { return $m / ( ( 10 + $_[0] )**0.3 ) },
'04' => sub { return $m / ( ( 10 + $_[0] )**0.4 ) },
'05' => sub { return $m / ( ( 10 + $_[0] )**0.5 ) },
'06' => sub { return $m / ( ( 10 + $_[0] )**0.6 ) },
'07' => sub { return $m / ( ( 10 + $_[0] )**0.7 ) },
'08' => sub { return $m / ( ( 10 + $_[0] )**0.8 ) },
'09' => sub { return $m / ( ( 10 + $_[0] )**0.9 ) },
);
for ( sort keys %func ) {
print "$_:\n";
my $f = $func{$_};
for ( 10, 20, 50, 100, 200, 500, 1000, 2000, 5000 ) {
my $v = int( $f->($_) );
printf "%-4d: %-150s %d\n", $_, '@' x $v, $v;
}
print "\n\n";
}