rail, 212 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#

stdin

8891745003795056347662562167357037867799685387386874516042107665801450411373395113288465439994084353

stdout

0,0,0,0,0,0

stderr

strace