var s,ans:string;
    i,k:longint;
    p:boolean;
begin
  read(s);
  p:=true;
  if s='0' then begin writeln(0); exit; end;
  if s[1]='-'then p:=false;
  if p then begin
   for i:=length(s) downto 1 do begin
    ans:=ans+s[i];
   end;
   for i:=1 to length(ans) do if ans[i]<>'0' then begin k:=i; break; end;
   for i:=k to length(ans) do write(ans[i]);
  end;
  if not p then begin
   for i:=length(s) downto 2 do begin
    ans:=ans+s[i];
   end;
   for i:=1 to length(ans) do if ans[i]<>'0' then begin k:=i; break; end;
   write('-');
   for i:=k to length(ans) do write(ans[i]);
  end;
end.
/**************************************************************
	Problem: 2300
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/