cy, 145 bytes

Result

WA

Code [DL]

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

stdin

5673976061254341485572785499196352796574272150371204180941901765416398893954348950436839590984310747

stdout

-1-1-1-1-1-1-1-1-1-1-1-1-1-10000000011111111112222223333333333444444444444455555555555566666666777777777778888888899999999999999

stderr

strace