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