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