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

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

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

stdin

00110111
00000011
10111101
01011011
01000010
10010101
00000001
00000000
00011100
00001111
10111110
11110110
00001010
10010001
00011110
00000110
01101001
10110001
10000101
01001000
00110010
01001110
10010100
00011010
11001000
10001000
10101011
01110011
11110111
01111000
10010011
00000110
10001101
11100111
11010010
00010101
00010001
00000010
00101101
11100011
00100100
11111101
10011001
01111000
10111011
10100000
00110001
11110010
11111011
11010001

stdout

stderr

Crash: Type mismatch

strace