rail, 186 bytes

Result

WA

Code [DL]

$ 'j'         /-(!c!)(n)1s{j}(c)#
 \-(!n!)(n)0q<
              \-1a#

$ 'main'   /{j}i-\   #
 \         |     |  /
 |         \   /-/ /
 0 /-000000--e<   /  
 0 0           \-/
 0 |
 \-/

stdin

9885582801700543440583765462421445149214405358660202315625567031203921792374235374907546704249731938

stdout

stderr

strace