s:string;

i,m,n:longint;

begin

readln(s); m:=1;

if (s[1]='0') and (length(s)=1) then write(0);

if s[1]='-' then begin write('-');m:=2; end;

n:=length(s);

while s[n]='0' do dec(n);

for i:=n downto m do

if s[i]<>'-' then write(s[i]);

end.