Program euclid;
  var a,b,i,n:longint;
   f,g:text;

  Function cmmdc(a,b:integer):longint;
   begin
      if b=0 then cmmdc:=a
             else cmmdc:=cmmdc(b,a mod b);
   end;

   begin

    assign(f,'euclid2.in');
    reset(f);
     assign(g,'euclid2.out');
     rewrite(g);
     read(f,n);
      for i:=1 to n do
       begin
         read(f,a,b);
         writeln(g,cmmdc(a,b));
       end;
     close(f);
     close(g);
     end.