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.