sub F{my$i=pop;$p[$i]=defined$p[$i]&&$i-$p[$i]?F($p[$i]):$i}
<>;/ /,$_[$`]^=1,$_[$']^=1,$p[F$']=F$`for@S=<>;
print grep($_,@_)>2||grep({F($S[0])-F$_}map glob,@S)?NO:YES