rail, 605 bytes

Result

WA

Code [DL]

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

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


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


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

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

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

stdin

10001000
00100100
00001111
01001111
00000011
00100000
10001000
00101000
10110000
10111110
10010101
00001010
10011010
00000110
01001001
00101101
00000001
01110010
00011010
00011100
01000010
10101010
01000100
11010010
01011010
01101001
00100110
01000011
01111111
00010110
10111111
00101011
00001011
00010101
10101011
01110110
11010111
00000111
01001110
10011110
00110111
11100111
01111000
10011001
01000010
11111101
00000000
01011011
01111010
10001010

stdout

stderr

strace