rail, 289 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

7601127190739858470884628029888958442061539106294452108054340544189536508653762220600288422834928957

stdout

0000000000000111111122222222222223333334444444444445555555555666666667777778888888888888888999999999

stderr

strace