---

var
 a,b,n,i:integer;
 function lcm(a,b:integer):integer;
 var
 r1,r2:integer;
 begin
 r1:=a;
 r2:=b;
 if (a=0) and (b=0) then    b:=1
 else if b=0 then    b:=a
 else if a<>0 then    while a<>b do    begin
 if a<b then        b:=b-a
 else        a:=a-b;
 end;
 lcm:=r1*r2 div b;
 end;
 begin
 while not eof do begin
 readln(n);
 for i:=1 to n do begin
 readln(a,b);
 a:=lcm(a,b);
 writeln(a);
 end;
   end;
 end. 

---

int64