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

0390464356491640807388656893351839012173814552450899677321305576481645530151954829954925186732879978

stdout

8106

stderr

strace