rail, 613 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           #
 \----{:}0g-<
   /         |
   |         |
   \-{f}s1---/

stdin

00000001
01111000
01001110
10101100
00100100
01101110
00011100
10011001
00001010
00000000
00011010
10110000
10111110
01010001
11001111
11011010
00000011
11011011
11100000
01111010
00110010
00010011
10000000
01010101
00011101
10001000
11001110
01000010
01101001
11100111
11010010
00000110
11111111
00101101
01110100
01010010
00000100
11111101
11100101
01011011
10101011
10011010
00011111
10001000
00110111
00010101
10000110
01011011
01101010
00001111

stdout

stderr

Crash: Type mismatch

strace