rail, 573 bytes

Result

WA

Code [DL]

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

$ 'g'
 \         #(r)(!x!)i(!x!)(r)-@
  \-80--(!r!)---{:}0g-------<
     /                       |
     |   /-0-                | 
     \-a--   >-q[0]im2(r)s1--/
         \-1-


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

$ 'main' 
 \                  #
  \--59m5a---{:}0g-<
          /         \
          |          |
          \o{k}{g}s1-/

stdin

10101100
10011001
01000010
11111101
11111101
10001101
10101011
01001110
01110000
11000010
01101001
00000001
10001111
00001000
11100010
01101000
00101101
01011011
11011110
10100000
10001000
11100111
11001011
00110111
01101110
00011110
11010010
00011100
10110000
11001101
00000110
00101101
00110000
01010010
00010101
01100110
10111110
00100101
01000100
00001111
01111000
11011000
00000011
00100100
10101110
11101001
01000000
00001010
11000101
00000000

stdout

0

stderr

strace