($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){$_&=substr$s,$i}
}
print$n