Program Vvod_Vivod;

  var

    A:array[1..255] of char;
    i,k:integer;
    t,f:text;
    l:string;

Begin

  assign(t,'d:\input.txt');

  reset(t);
  read(t,l);
 for i:=1 to length(l) do begin
  a[i]:=l[i];
  k:=k+1;
end;
  close(t);

  assign (f,'output.txt');
  rewrite(f);
 for i:=k downto 1 do
  begin
  l[i]:=(a[i]);
  write(f,l[i]);
  end;
  close(f);
End.