program string_merge; var a:array[1..1000] of char; b:array[1..1000] of char; c:array[1..1000] of char; z,x,i,k,d,s,j,l,t:integer; begin readln(d); for s:=1 to d do begin z:=0; x:=0; repeat z:=z+1; read(a[z]); until a[z]=' '; z:=z-1; repeat x:=x+1; read(b[x]); until b[x]=char(10); x:=x-1; i:=0; k:=0; repeat i:=i+1; k:=k+2; c[k]:=b[i]; until i=x; j:=1; l:=0; repeat l:=l+1; c[j]:=a[l]; j:=j+2; until l=z; t:=0; if x<=z then repeat t:=t+1; write(c[t]) until t=x*2 else repeat t:=t+1; write(c[t]); until t=z*2; writeln; end; end.
piterek20000