rail, 139 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

6160472611864656903875997755228011327072000790469793821232164435216157282273090564528764274282576997

stdout

7000000000011111111122222222222222223333334444444455555555566666666666677777777777778888888999999999

stderr

strace