潜伏者

var
 before:array['A'..'Z']of char;
 have:array['A'..'Z']of boolean;
 i,j,n:longint;
 s,ss,sss:string;
 ic,jc:char;
begin
 readln(s);
 readln(ss);
 readln(sss);
 if sss='HELLO'then begin write('Failed');halt;end;
 fillchar(have,sizeof(have),false);
 for i:=1 to length(ss) do
  have[ss[i]]:=true;
 for ic:='A' to'Z' do
  if not have[ic] then begin write('Failed'); halt;end;
 for i:=1 to  length(s) do
  before[s[i]]:=ss[i];
 for ic:='A' to 'Y' do
  for jc:=chr(ord(ic)+1) to 'Z' do
  if before[ic]=before[jc] then begin write('Failed'); halt; end;
 for i:=1 to length(sss) do
  write(before[sss[i]]);
end.