program p1201;

var a,z:int64;

b,c:array[1..32] of integer;

i,j:integer;

begin

read(a);

z:=1;

for i:=1 to 32 do

begin

b[i]:=(a mod 2);

a:=a div 2;

end;

for i:=1 to 16 do

c[i]:=b[17-i];

for i:=17 to 32 do

c[i]:=b[49-i];

a:=0;

for i:=1 to 32 do

begin

for j:=1 to 32-i do

z:=z*2;

a:=a+c[i]*z;

z:=1;

end;

write(a+c[32]);

end.