Result [link]

WA

Code [DL]

procedure main()
	a := read() 
	s := 0
	while a > 0 do {
		s *:= 2
		s +:= a % 10
		a /:= 10
	}
	write(s)
end

stdin

0010101000000100111110000100111110100011110110001010110101110101101000111101110111111101111100000000

stdout

1218516676999112054511486997

stderr

strace