use strict;
use bignum;
my $e = 0.00141;
my $o =1;
for(my $r=0; $r<=10; $r++){
		$o *=$e;
		print "$o\n";
				}



##</code><code>##


0.00141
0.0000019881
0.000000002803221
0.00000000000395254161
0.0000000000000055730836701
0.000000000000000007858047974841
0.00000000000000000001107984764452581
0.0000000000000000000000156225851787813921
0.000000000000000000000000022027845102081762861
0.00000000000000000000000000003105926159393528563401
0.0000000000000000000000000000000437935588474487527439541



##</code><code>##

 0.00000000000000000000000000003105926159393528563401


##</code><code>##

0.000000000000000000000000000031059