#!perl -lp040
$_=int=~$_?-$z+${for$.(2..abs){$_/=$.,$z+=$&/$.until$_%$.}z}:"Wait, that's not a number..."