var t,k,i:longint;a,b:string;
begin
 readln(t);
 for k:=1 to t do begin
  readln(a);
  readln(b);
  for i:=1 to length(a) div 2 do write(a[i]);
  write(b);
  for i:=length(a) div 2+1 to length(a) do write(a[i]);
  writeln;
 end;
end. 
/**************************************************************
	Problem: 2010
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/