prelude, 50 bytes

Result [link]

AC

Code [DL]

     ?( v- #?)
       v# #^v+!
  8+     ^^+#
6(1-)

stdin

1101010001110000001000001111101101000111110110010010100111111010001011111011111100100010011110111000

stdout

1051942040399350764289978935224

stderr

strace