<>;@L=glob<>;$-=<>;map{$x+=$t=2**-$_;$%=0;$%+=$_/$x for@L;$x-=$%<$-&&$t}-30..30;print$x