#!/usr/bin/perl -w

print "\n n| n^0.1  n^0.01 n^0.001 etc...\n";
print ("--+".("-" x 70)."\n");
for my $num (reverse 0..10)
{
    printf "%2d| ", $num;
    for my $exp (1..10)
    {
        printf "%5.4f ", $num ** (10**(-$exp));
    }
    print "\n";
}