program euclid2;
 var n,i,m1,m2:longint; f1,f2:text;

function euclid(n,m:integer):integer;
var x:longint;
 begin
  if n>m then begin x:=n; n:=m; m:=x; end;
  if n=0 then euclid:=m else
   euclid:=euclid(n, m mod n);
 end;


begin
 assign(f1,'euclid2.in');
 reset(f1);
 readln(f1,n);
 assign(f2,'euclid2.out');
 rewrite(f2);
 for i:=1 to n do
  begin
   read(f1,m1); read(f1,m2);
   writeln(f2,euclid(m1,m2));
  end;
 close(f1);
 close(f2);
end.