program info;
var a,b,r:int64;
    i,n:longint;
    f,g:text;
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);
   repeat
      r:=a mod b;
      a:=b;
      b:=r;
   until b=0;
      writeln(g,a);
end;
   close(f);
   close(g);
end.