cy, 153 bytes

Result

WA

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 $a :: =d {$d} {.d -- 9 $a - :<<} while} while

stdin

2903545905349014908894895238913769281206233472863572037741610013383682311933768937391553465189409395

stdout

0000000000000011111111112222222333333344444444455555555666666666666666666777777778888888888999999999

stderr

strace