var s: String;
    i, n: Integer;
    t: Char;

BEGIN
    readln (s);
    n := Length (s);
    for i := 2 to n div 2 do begin
        t := s[i];
        s[i] := s[n - i + 1];
        s[n - i + 1] := t;
    end;
    writeln (s);
END.