program P1928;
var
s:string;
c:char;
i,l:integer;
p:boolean;
begin
assign(input,'reverse.in'); reset(input);
assign(output,'reverse.out'); rewrite(output);
readln(s);
if s[1]='-' then begin p:=true; delete(s,1,1);end;
for i:=length(s) downto 1 do
  if s[i]<>'0' then break;
delete(s,i+1,length(s)-i);
if p then
  begin
   write('-');
   for i:=length(s) downto 1 do
   write(s[i]);
  end
  else
  begin
  for i:=length(s) downto 1 do
  write(s[i]);
  end;
end.