$a+=0.9**$_*2**(<>/800)for 1..($n=<>);
print$-=800*log($a/(9*(1-0.9**$n)))/log(2)-(sqrt((1-0.81**$n)/0.19)/(1-0.9**$n)-2.29415733870562)*1200/7.70584266129438