---

var
  a,b,c:longint;
begin
  while not eof do begin
  readln(a,b);
  if (a=0) or (b=0) then break;
  while b>0 do begin
    c:=a mod b;
    a:=b;
    b:=c;
  end;
  writeln(a);
end;
end.