program hh;
uses crt;
var s:string;ts:string;
i:byte; b:boolean;
Begin
assign(input,'test.txt');
assign(output,'test2.txt');
reset(input);
rewrite(output);
while not eof do Begin
readln(s);
ts:='';
for i:=1 to length(s) do
ts:=s[i]+ts;
writeln(ts);
end;
close(input);
close(output);
end.