rail, 642 bytes

Result

AC

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----<
                      /             |
 @-------------------/              |
   \          \                     |
   |           >-qfq(q)ms1{:}{:}s1--/
   \-(!r!)[1]-/

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

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

stdin

10101011
00011100
01111000
00000000
01001111
00010101
10011110
10011001
11110001
00001110
11111101
11111001
00010011
00000001
01100000
01101001
01101010
11001101
01011010
01110011
10111110
11000010
10001001
10001011
00011101
00101110
00000011
01000010
10010010
10001000
00001111
00001001
11011100
01001000
11010010
01001010
10100001
10111100
01001110
01011011
00000110
11100111
01001011
00101100
00000110
00100100
00000000
00001010
00110111
00101101

stdout

11110101001001010000100000110110001000111100111111

stderr

strace