program caesar;

var
  s:string;
  i,Anzahl:integer;

const
  Buchstabe : Array[1..26] of Char =
    ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M',
     'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z');

begin
  { TODO -oUser -cConsole Main : Hier Code einfügen }

  Anzahl:=1;  {Verschiebung um x Stellen}
  readln(s);  {Zu verschlüsselnder String}

  for i := 1 to Length(s) do
  begin
    if UpCase(s[i]) in ['A'..Buchstabe[26 - Anzahl]] then
    begin
      Inc(s[i], Anzahl);
    end
    else
    begin
      if UpCase(s[i]) in [Buchstabe[27 - Anzahl]..'Z'] then
      begin
        Dec(s[i],26 - Anzahl);

      end;
    end;
  end;
  writeln(s);

end.