var a,b,i,n,aux:longint; f1,f2:text;
function gcd(a,b:longint):longint;
begin
while a<>0 do begin
aux:=a;
a:=b mod a;
b:=aux;
end;
gcd:=b;
end;
begin
assign(f1,'euclid2.in');
reset(f1);
assign(f2,'euclid2.out');
rewrite(f2);
readln(f1,n);
for i:=1 to n do begin
readln(f1,a,b);
writeln(f2,gcd(a,b));
end;
close(f1);
close(f2);
end.