($h,$w,$/)=glob<>;$_=<>;
while(/#/){
	++$n;
	$s=$_;
	for$i(1,2,$w+1,$w+2,$w+3,$w*2+2,$w*2+3,$w*2+4){$s&=substr$_,$i}
	$_=$s;
}
print$n