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