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

3098160241124712746363954449962894580080756370364040594418954608618701028114954765063774279612537482

stdout

2000000000000111111111122222223333333444444444444444455555555666666666667777777777888888888999999999

stderr

strace