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