#!perl -pl $r=-1e8;s""s/\b0*\B//,$r+=$-=-/^\d.*\d$/*($r-eval)for$'.$`"ge;$_=$r