rail, 326 bytes

Result

AC

Code [DL]

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

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

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

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

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

stdin

1560959902913702627182835698584313645122974123476313542009378913168357135018886183530125137441459600

stdout

0000000001111111111111112222222223333333333333344444444555555555556666666677777778888888888999999999

stderr

strace