eval"N,V,X,Y="+gets.split*?,
L=$<.map{|s|s.split.map(&:to_i)<<1e3}+[[1e3]*N]
$*<<[V,0,0,1]
d={[0,0,1]=>V}
while(h,x,y,o=$*.pop)
[x,y]==[N-1,N-1]&&($><<:YES;exit)
[x,y,o]==[X-1,Y-1,1]&&(h*=2;o=0)
[[x+1,y],[x,y+1],[x-1,y],[x,y-1]].map{|a,b|(0<i=h-L[b][a])&&!d[[a,b,o]]&&(d[[a,b,o]]=i;e=[i,a,b,o];$*[$*.bsearch_index{|v|0.<v<=>e}||$*.size,0]=[e])}end
$><<:NO