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