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