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