sub f{
	my$e=$e[$_];
	$_||${$_=1;vec($e,$_,1)&&f()for@n}for vec$g,$_,1
}
@n=0..<>;
map{
	/ /;
	$d[$`]^=vec($e[$`],$',1)=1;
	$d[$']^=vec($e[$'],$`,1)=1;
	f;
}<>;
$h|=$_ for@e;
print$g ne$h|grep($_,@d)>2?NO:YES