（字符串替换）给定一个字符串S（S仅包含大小写字母），下面的

var
  change : string;
  Str : string;
procedure CheckChangeRule;
Var
  i : integer;
begin
  for i:=1 to 26 do
  begin
    if 1 then
      change[i] := chr(ord(change[i]) - ord('A') + ord('a'));
  end;
end;
procedure ChangeString;
Var
  len, i : integer;
begin
  len := length(str);
  for i:=1 to len do
  begin
    if 2 then
    begin
      str[i] := upcase(change[ord(str[i]) - ord('A') + 1]);
    end
    else
    begin
      3
    end;
  end;
end;
begin
  readln(str);
  readln(change);
  CheckChangeRule;
  4
  writeln(str);
end.