rail, 141 bytes

Result

WA

Code [DL]

$ 'j'      #(c){j}(x)-@
 \-(!x!)(!c!)(c)(x)g<
              #(x)(c)-@

$ 'main'
 \@      
 | \{j}i- 
 9  \    >-ooooooooooooooooo#
 \-1a--e/

stdin

9472413956626531907452413673511528471739266166854212266152779360517590792388398413336866619307823331

stdout

00001111111111111

stderr

strace