sub gcd{
	my ($x, $y) = @_;
	while($x>0 && $y>0){
		if ($y > $x) {
			$y %= $x;
		}
		else{
			$x %= $y;
		}
	}
	return $x if $x>0;
	return $y if $y>0;
}

@in=split(/ /,<STDIN>);
my $a=$in[0];
my $b=$in[1];
@T=split(/ /,<STDIN>);
@S=split(/ /,<STDIN>);
my $t=0;
for(0..$a-1){
	$t=gcd($t,$T[$_]);
}
my $s=0;
for(0..$b-1){
	$s=gcd($s,$S[$_]);
}
if($s%$t==0){
	print "Yes";
}
else{
	print "No";
}