sub p{vec($a,$i*2,8)=0,vec($d,$e++,32)=$i if vec($a,$i*2,8);}

($h,$w)=glob<>;
undef$/;
$d=$a=<>&v1.0 x($h*$w);

for$i(0..$h*$w+$x-1){
	$r+=vec($a,$i*2,8);
	p();
	while($e){
		$j=vec($d,--$e,32);
		p($i=$j+$w);
		p() if($i=$j+1)%$w;
		p($i=$j-1) if$j%$w;
		p() if($i=$j-$w)>=0;
	}
}
print$r+0;