rail, 572 bytes

Result

WA

Code [DL]

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

$ 'g'
 \           #(r)(!x!)i(!x!)-@
  \-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

10000111
00110111
00001111
11111000
00001011
01110010
00011100
11111101
00000011
11000110
01011101
11010010
10010011
01010101
10100101
00010101
00010111
00100100
10011100
00001010
01001110
00000000
01000010
10000100
01000101
00101110
10111110
10011001
10010000
11011000
11110100
01111000
10111111
11001000
10111110
10110101
00100011
11100111
00000110
01011011
10101110
11011011
11111111
01101001
00101101
00000001
01011011
10001000
10101011
00010110

stdout

stderr

Crash: Type mismatch

strace