program fordit;
var f,g:text;
    s,s1:string;
    i:byte;
begin
     readln(s1);
     assign(f,s1);
     assign(g,'tmp');
     reset(f);
     rewrite(g);
     while not eof(f) do
     begin
       readln(f,s);
       for i:=length(s) downto 1 do
        write(g,s[i]);
       writeln(g);
     end;
     close(f);
     erase(f);
     close(g);
     rename(g,s1);
     readln
end.