program euc2;
var f,t:text;
    x,y:int64;
    n,i:integer;
begin
  assign(f,'euclid2.in');
  reset(f);
  read(f,n);
  readln(f);
  assign(t,'euclid2.out');
  rewrite(t);
  for i:=1 to n do
    begin
      readln(f,x,y);
      repeat
        if x<y then y:=x-y
               else x:=y-x;
      until x=y;
      writeln(t,x);
    end;
  close(f);close(t);
end.