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