rail, 625 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'
 \                                /-(r)-#
  \-2m(!q!)[0](!r!)55m--{:}--1g--<
                      /           |
 @-------------------/            |
   \          \                   |
   |           >-q(q)ms1{:}{:}s1--/
   \-(!r!)[1]-/

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

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

stdin

11011110
10110011
01111000
00000110
00001111
00000000
00000010
11010110
10101011
10111011
10010001
11110111
00011100
01000011
00001010
10001100
11100111
10011001
00000001
00001010
00110111
01011000
11000110
10000011
01010110
11011100
01001110
00110010
10001101
10001000
11010010
01011011
01011111
01000010
00100100
11111101
01101001
00000011
00010101
00011011
00101101
10000110
10001011
10110001
01111100
10011001
11100000
01111010
10111110
01101000

stdout

1

stderr

strace