rail, 131 bytes

Result

WA

Code [DL]

$ 'j'      #(c){j}(x)-@
 --(!x!)(!c!)(c)(x)g<
              #(x)(c)-@
$'main'@
 |@     \1uo-
 9 \{j}- q   >#
 1  i   >0--/
 \-ai-e/

stdin

4024390045954246640780878965622631962478828423825975836566802629460021779716647423458814199672900116

stdout

6000000000011111112222222222222333334444444444444555555566666666666666777777777888888888889999999999

stderr

strace