begin
comment bits string variable reverse;

	bits procedure bitsVarReverse(bits value bb);
	begin
		bits r, t, s;
		integer i;
		s := #80000000;
		r := #0;
		for i:=1 until 32 do
		begin
			t := bb and s;
			if t = #80000000 then r := r or #1;
			bb := bb shl 1;
			r := r shl 1;
		end;
		r
	end;

	bits bt, bt2;
	
	read (bt);
	bt2 := bitsVarReverse(bt);
	write(bt2);
end.