$i = 2;
$j = (1-1/2000)**$i;
print $j;