pascal ac --- 我是大神，要感谢我哦

var s3,s4:string;
procedure try(s1,s2:string);
var c:char; sl1,sr1,sl2,sr2:string;n:longint;
begin
  if length(s2)=1 then write(s2)
  else
    begin
      c:=s2[length(s2)];
      write(c);
      n:=pos(c,s1);
      if n>1 then
        begin
          sl1:=copy(s1,1,n-1);
          sl2:=copy(s2,1,n-1);
          try(sl1,sl2);
        end;
      if n<length(s1) then
        begin
          sr2:=copy(s2,n,length(s1)-n);
          sr1:=copy(s1,n+1,length(s1)-n);
          try(sr1,sr2);
      end;
    end;
end;
begin
readln(s3);
readln(s4);
try(s3,s4);
end.