($h,$w)=glob<>;
($sy,$sx,$gy,$gx)=glob<>;
++$sy;++$sx;++$gy;++$gx;
@b=map[map hex,b,b,/./g,b,b],(b x$w)x2,<>,(b x$w)x2;
@q=[$sy,$sx];
while(($Y,$X)=@{shift@q}){
	for([-1,0],[0,-1],[0,1],[1,0]){
		($dy,$dx)=@$_;
		if(abs($b[$Y][$X]-$b[$y=$Y+$dy][$x=$X+$dx])<=1){
			$_[$y][$x]++||push@q,[$y,$x]
		}
		if($b[$Y][$X]>$b[$y][$x] && $b[$Y][$X]==$b[$y+=$dy][$x+=$dx]){
			$_[$y][$x]++||push@q,[$y,$x]
		}
	}
}
print$_[$gy][$gx]?YES:NO