use bignum p,-10;$x=0/<>;$x+=$_ for<>;print$x||'0.'.0 x10