GIAIMA PASCAL

const fi='giaima.inp';fo='giaima.out';
var s:string;
   i,j,n,t:longint;

procedure mahoa;
var i,b1,b2,b3:longint;
        b4:char;
begin
    for i:=1 to length(s) do
    begin
        b1:=ord(s[i])-65;
        b2:=b1+5;
        b3:=b2 mod 26;
        b4:=chr(65+b3);
        write(b4);
    end;
    writeln;
end;

procedure giaima;
var j,b4,b23:longint;b1:char;
begin
    for j:=1 to length(s) do
    begin
        b4:=ord(s[j])-65;
        b23:=(b4+26-5) mod 26;
        b1:=chr(65+b23);
        write(b1);
    end;
    writeln;
end;

procedure solve;
begin
    readln(t);
    for i:=1 to t do
       begin
           readln(n);
           readln(s);
           if n=0 then mahoa
           else giaima;
       end;
end;

begin
    assign(input,fi);reset(input);
    assign(output,fo);rewrite(output);
    solve;
    close(input);close(output);
end.