#!perl -pl
$==-1e8;s"^|\B"$=+=$-=`bc<<<$_`-$=for$'.$`"ge;$_=$=