program p9;
  var fi,fo:text;
      n,m,t,r:longint;
      bufin,bufout:array[1..100000] of integer;
Begin
  assign(fi,'euclid2.in');reset(fi);
  assign(fo,'euclid2.out');rewrite(fo);
  settextbuf(fi,bufin);
  settextbuf(fo,bufout);
  readln(fi,t);
  while t<>0 do begin
   readln(fi,n,m);
   while m<>0 do begin
                 r:=n mod m;
                 n:=m;
                 m:=r;
                end;
   writeln(fo,n);
   t:=t-1;
                   end;
   close(fi);
   close(fo);
end.