Var
   s: string;
   ch, o: char;
   i,n: longint;
   c: array ['0'..'z'] of char;

Begin
     for ch:= '0' to 'z' do
         c[ch]:= ch;
     readln(input, n);
     for i:= 1 to n do
         begin
         readln(input,o,ch,ch);
         c[ch]:= o;
         end;
     readln(input, s);
     for i:= 1 to length(s) do
         s[i]:= c[s[i]];
     writeln(output, s);
End.