var n,m,c:longint; begin assign(input,'reverse.in'); reset(input); assign(output,'reverse.out'); rewrite(output); readln(n); if n<0 then begin n:=-n; write('-'); end; m:=0; while n>0 do begin m:=m*10+n mod 10; n:=n div 10; end; writeln(m); close(input); close(output); end.