uses math;

var cislo : string;
i, bin : integer;

begin
	readln(cislo);
	bin := 0;
	
	for i := 0 to 5 do
	begin
		bin := bin + power(2, i) * integer(cislo[i]);
	end;
	
	writeln(bin);
end.