rail, 211 bytes

Result

WA

Code [DL]

$ 'j'                /-(x){j}(c)#
 \-(!x!)(!c!)(c)(x)g<
                     \-(c)(x)#
$ 'main'/{j}i-\ 
 \      |     | 
 |      \   /-/ 
 \-91a----e<   
            \-o[,]oo[,]oo[,]oo[,]oo[,]oo[,]oo[,]oo[,]oo#

stdin

1657700134170658342546277130469598060198787880339539205061831284156616375040916068436334075606967579

stdout

0,0,0,0,0,0,0,0,0

stderr

strace