rail, 138 bytes

Result

WA

Code [DL]

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

stdin

6623860732132294837376715922083297637048932208180124685688428843324491629408162232007551173871710834

stdout

4000000000111111111122222222222222223333333333333444444445555666666666777777777788888888888888999999

stderr

strace