rail, 216 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

6760654855467375378830065497878731919241517912760735896789591343107144767698058565599869189365597490

stdout

0,0,0,0,0,0,0,1,1

stderr

strace