rail, 630 bytes

Result

WA

Code [DL]

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

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


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


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

$ 'f'
 \
  \--{getb}{isok}o-#

$ 'main' 
 |
 5
 9
 m
 5
 a           #
 \----{:}0g-<
   /         |
   |         |
   \-{f}s1---/

stdin

11100111
01101001
01101011
11001011
10011100
11010100
01111000
10011001
11010001
10010000
11010010
11010011
00101101
11111101
01100110
01001110
10000010
01001101
11100010
00010101
11001110
00000011
00000110
00100010
00100001
10001000
00101110
11010010
00000000
11000010
00001010
00001111
01000010
10111010
00100100
10101011
00011100
11101110
10111110
11110001
10100010
01001100
00011011
11111111
11010010
01011011
00110111
00111000
00000001
00000010

stdout

11111111111111111111111111111111111111111111111111

stderr

strace