program pil_6_30(input,output);
var
	k,tmp,pow : integer;
  c : char;
begin
	read(k);
  tmp := abs(k) div 10;
  pow := 1;
  while tmp<>0 do begin
  	pow := pow * 10;
    tmp := tmp div 10;
	end;
  if k<0 then write('-');
  tmp := abs(k);
  if pow=1 then pow:=0;
  while pow <> 0 do begin
		c := chr(ord('0') + tmp div pow);
    tmp := tmp mod pow;
    pow := pow div 10;
    write(c);
  end;
  WriteLn;
end.