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