rail, 187 bytes

Result

WA

Code [DL]

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

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

stdin

2035785152467476775738392636979333883359053773063546454426346704882933901834452710419916666705749867

stdout

756

stderr

strace