rail, 444 bytes

Result

WA

Code [DL]

$ ':'
 \-(!a!)(a)(a)#


$ 'k'
 \                         #(r)(!x!)-@
  \-2m(!q!)[0](!r!)55m--{:}--1g----<
                      /             |
 @-------------------/              |
   \          \                     |
   |           >-qfq(q)ms1{:}{:}s1--/
   \-(!r!)[1]-/

$ 'main' 
 \                 #   @
  \--59m5a---{:}0g<     \-------------a-@
          /        -1s0---2mi{:}[\n\]q<
         /--------------------o{k}(!d!)-@
        @

stdin

00010101
10011001
10110011
00101101
00000000
00100100
00011001
10111110
11001100
10101110
10001000
01111000
11011100
10101111
00010100
01011001
01011101
11100110
00000110
00110000
10011001
00001111
00111111
01101101
01000001
11100111
11010010
01110011
01001110
00111001
00000011
10010000
11111101
00011100
01101001
01110111
11010111
10101011
00001010
10010011
01001101
01000010
00000001
00110111
00111110
01011011
10010111
10011001
10110010
00101001

stdout

00001000000000000000000000000010001000000000000000

stderr

strace