my $x = 100000000000000;
for my $ii (14..25) {
    print("10^$ii: ", 0 + $x, "\n");
    $x *= 10;
}