var i,j,n:longint;

k:int64;

s:string;

function tentotwo(x:longint):string;

var i,j,k:longint;

s:string;

begin

tentotwo:='';

repeat

k:=x mod 2;

x:=x div 2;

str(k,s);

tentotwo:=s+tentotwo;

until x=0;

while length(tentotwo)32 do tentotwo:='0'+tentotwo;

exit(tentotwo);

end;

function twototen(x:string):int64;

var i,t,k:longint;

begin

while x[1]='0' do delete(x,1,1);

t:=1;twototen:=0;

for i:=1 to length(x) do begin

if i1 then t:=t*2;

val(x[length(x)-i+1],k);

twototen:=twototen+k*t;

end;

exit(twototen);

end;

function jh(x:string):string;

var i,j:string;

begin

i:=copy(x,1,16);

j:=copy(x,17,16);

x:=j+i;

exit(x);

end;

begin

readln(n);

s:=tentotwo(n);

s:=jh(s);

k:=twototen(s);

writeln(k);

end.