sub dame{print-1;exit} ($n,$k)=glob<>; ($a,$b)=glob<>; ($c,$d)=glob<>; $k-=$e=abs($c-$a)+abs($d-$b); dame if $k<0; dame if $k&1; dame if $k>$e>>1<<1; for$x(1..$n){ for$y(1..$n){ $f=abs($x-$a)+abs($y-$b); print$f&$f<$k?"#":"."; } print$/; }