uses math;

var cislo : string;
i, bin : integer;

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