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

3997832470314881140534592214548406337794048721219232114449044980306316416808338345332553185523561623

stdout

3000000001111111111112222222222333333333333333344444444444444445555555556666667777788888888889999999

stderr

strace