program euclid2;
 var
    f,g:text;
    n,i,a,b,r:longint;
begin
 assign(f,'euclid2.in');
 reset(f);
 assign(g,'euclid2.out');
 rewrite(g);
  readln(f,n);
   for i:=1 to n do
    begin
     readln(f,a,b);

  r:=a mod b;
   while r<>0 do
    begin
     a:=b;
     b:=r;
     r:=a mod b;
    end;
    writeln(g,b);
   end;
   close(f);
   close(g);
end.