var a,b,n,i:longint;
begin
assign(input,'euclid2.in');
assign(output,'euclid2.out');
reset(input);
rewrite(output);

readln(n);
for i:=1 to n do
	begin
	readln(a,b);

	while (a<>0) and (b<>0) do
      		begin
      		if a>b then a:=a mod b
             	       else b:=b mod a;
      		end;

	if a=0 then writeln(b)
       	       else writeln(a);
	end;

close(input);
close(output);

end.