program p1;
var i,a,b,n:longint;
    f1,f2:text;

Function dvz(a,b:longint):integer;
 begin
 if b=0 then dvz:=a
        else dvz:=dvz(b,a mod 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
   read(f1,a,b);
   writeln(f2,dvz(a,b));
  end;

 close(f1); close(f2);
End.