program number;

var a:array[1..10] of integer;

n,j,i,s,t,b:integer;

begin

s:=0;

readln(n);

if (n=0) then begin writeln(0);exit;end;

while (n mod 10=0) do

n:=n div 10;

if (n<0) then write('-');

if (n<10) then begin writeln(n);exit;end;

while(n<10) and (n>-10) do

begin

s:=s+1;

a[s]:=n mod 10;

n:=n div 10;

end;

for i:=s downto 1 do

write(a[i]);

end.