program ideone;
var
  x : string;
  i : integer;
begin
  readln(x);
  for i:=Length(x) downto 1 do Write(x[i]);
end.