Result [link]

AC

Code [DL]

(: y 0)(: w -1)(: x(*(#(l))10))(@(: x(#/ x 10))(: y(+ y(*(^ 2(: w(+ w 1)))(% x 10)))))y

stdin

1111001000110010001011100011001100100000111010100111100100000101000101110111000111000010100100010100

stdout

1199296589436163825112614447380

stderr

strace