SEQUENCE1045 Pascal

var a,b:array[0..1000] of longint;
    n,m:longint;

function gcd(x,y:longint):longint;
var t:longint;
begin
    while y>0 do
    begin
        t:=x mod y;
        x:=y;
        y:=t;
    end;
    exit(x);
end;

procedure nhap;
var i:longint;
begin
    readln(n,m);
    for i:=1 to n do read(a[i]);
    for i:=1 to m do read(b[i]);
end;

procedure giai;
var i,j,k:longint;
begin
    for i:=1 to n do
        for j:=1 to m do
        begin
            k:=gcd(a[i],b[j]);
            a[i]:=a[i] div k;
            b[j]:=b[j] div k;
        end;
    for i:=1 to n do
        if a[i]>1 then
        begin
            writeln('NO');exit;
        end;
    for i:=1 to m do
        if b[i]>1 then
        begin
            writeln('NO');exit;
        end;
    writeln('YES');
end;
var t,i:longint;

begin
    assign(input,'sequence1045.inp');reset(input);
    assign(output,'sequence1045.out');rewrite(output);
    readln(t);
    for i:=1 to t do
    begin
        nhap;
        giai;
    end;
end.