# expand tail recursion to a loop (117)
 for$n(1e5,1e9){(@x,$s)=1;for$r(0..9){$x[@x]=$_*=$r-7?$r%2-$r*3-5:-3,$z=int$n/abs,$s-=$_*$z++*$z/2for@w=@x}print$s,$/}
#----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0----+----1----+----2
# parameter from STDIN (102)
#$n=<>;@x=1;for$r(0..9){$x[@x]=$_*=$r-7?$r%2-$r*3-5:-3,$z=int$n/abs,$s-=$_*$z++*$z/2for@w=@x}print$s,$/
#----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0----+----1----+----2
 

IyBleHBhbmQgdGFpbCByZWN1cnNpb24gdG8gYSBsb29wICgxMTcpCiBmb3IkbigxZTUsMWU5KXsoQHgsJHMpPTE7Zm9yJHIoMC4uOSl7JHhbQHhdPSRfKj0kci03PyRyJTItJHIqMy01Oi0zLCR6PWludCRuL2Ficywkcy09JF8qJHorKyokei8yZm9yQHc9QHh9cHJpbnQkcywkL30KIy0tLS0rLS0tLTEtLS0tKy0tLS0yLS0tLSstLS0tMy0tLS0rLS0tLTQtLS0tKy0tLS01LS0tLSstLS0tNi0tLS0rLS0tLTctLS0tKy0tLS04LS0tLSstLS0tOS0tLS0rLS0tLTAtLS0tKy0tLS0xLS0tLSstLS0tMgojIHBhcmFtZXRlciBmcm9tIFNURElOICgxMDIpCiMkbj08PjtAeD0xO2ZvciRyKDAuLjkpeyR4W0B4XT0kXyo9JHItNz8kciUyLSRyKjMtNTotMywkej1pbnQkbi9hYnMsJHMtPSRfKiR6KysqJHovMmZvckB3PUB4fXByaW50JHMsJC8KIy0tLS0rLS0tLTEtLS0tKy0tLS0yLS0tLSstLS0tMy0tLS0rLS0tLTQtLS0tKy0tLS01LS0tLSstLS0tNi0tLS0rLS0tLTctLS0tKy0tLS04LS0tLSstLS0tOS0tLS0rLS0tLTAtLS0tKy0tLS0xLS0tLSstLS0tMgo=

MTAwMDAwMDAwMA==

1000000000