var
s:string;
cc:char;
aa:array ['a'..'z'] of char;
ab:array ['A'..'Z'] of char;
a,i,j,k:integer;
begin
for i:=1 to 26 do begin
read(cc);
aa[chr(97+i-1)]:=cc;
ab[chr(65+i-1)]:=chr(ord(cc)-32);
end;
readln;readln(s);
for i:=1 to length(s) do
if (s[i]<='Z') and (s[i]>='A') then s[i]:=ab[s[i]]
 else if (s[i]<='z') and (s[i]>='a') then s[i]:=aa[s[i]];
 writeln(s);
end.