Program euclid2;
var a,b,r : int64; 
    i,t :longint; 
begin
       assign(input,'euclid2.in'); reset(input);
       assign(output,'euclid2.out'); rewrite(output);
       readln(T); 
       for i:=1 to T do begin read (a,b);
       while b<>0 do begin 
                       r:=a mod b; 
                       a:=b; 
                       b:=r;
                       end;
       writeln(a); 
       end;
       close(input); close(output);
   end.