read h w
read {a..d}
mapfile s
R=Q[--N]
W=Q[N++]
for(($W=c-++n,$W=d-1;!r*N;r=z[a*64+b-65])){
for((q=R,p=R;c=p,d=q,(p|q)>=0&&z[p*64+q]++<4;t=u*u>1?u<0|v?0:2:1,$W=p+n*t,$W=q+m*t,t=n,n=m,m=-t)){
eval {t=,{u,v}=t-}'1${s[c]:d:c+=n,d+=m,1}'
}
}
NO
echo ${_[r]-YES}