$s+=1/($x+$_)**2for 1..1e5-($x=<>);print$s+1e-5