rail, 187 bytes

Result

AC

Code [DL]

$ 'j'      #(c){j}(x)-@
 \-(!x!)(!c!)(c)(x)g<
              #(x)(c)-@

$ 'main'/{j}i-\ /-\
 \      |     | |  \-o--@
 |      \   /-/ \     /
 \-91a----e<   /--u1q<
            \-/       #

stdin

5462937001538169981369250453475901123052362389426468448059840575899066683297811774629748921767157852

stdout

0000000011111111122222222223333333344444444445555555555566666666666777777777788888888888999999999999

stderr

strace