rail, 301 bytes

Result

AC

Code [DL]

$'d'
 -(!!)()()#

$'i'
 -i2mc2c(!e!)1a(!!)0()p()z1sc(!!)(!d!)()p(e)#

$'p'
 -(!!)-()o1\
     /      s
     ^       |
    # \g0{d}-/

$'f'
 -(!!)(!c!)(c)()2mc2c(!z!)(!y!)(!x!)(y)(){p}(!P!)(c)()()9q#

$'main'
#-[00000]{d}p--\
 >{f}-0-        |
|     \ >ep-{d}-/
\     ||    \
 \-1a/ |    |
       \-{i}/

stdin

8545721999841878766292299226803397166263016004158460577169808020193764661333733679558901676992632944

stdout

0000000001111111112222222222333333333344444445555556666666666666666777777777788888888899999999999999

stderr

strace