Result [link]

WA

Code [DL]

0 x; 1 b; _ q; 100'[q~ 10 % b~ * x~ + x;  q~ q~ 10 % - + 10 / q; b~ 2*b;] x~`

stdin

0010001110110000110100110001000110111100101000111010110010000101000011011111010111101000111100111011

stdout

1.7675031348624e+29

stderr

strace