<>;$s+=$_,$t+=$_**2for@x=glob<>;print$==50+10*($x[<>-1]*@x-$s)/sqrt($t*@x-$s*$s||1)