cy, 157 bytes

Result

AC

Code [DL]

100 =a :>s =b [0,0,0,0,0,0,0,0,0,0,] =c {$a} {.a -- $c $b $a :: :i &:: 1 + ::= } while 10 =a {$a} {.a -- $c 9 $a - :: =d {$d} {.d -- 9 $a - :<<} while} while

stdin

3749564277216021913014740401909309063373780175073898138152735159603569917616239886864706284857447361

stdout

0000000000011111111111122222233333333333344444444455555556666666666677777777777778888888889999999999

stderr

strace