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