int A[1d7],H,W,i=4d3,z,t;
int f(int i){
	return A[i]=A[i]-i?f(A[i]):i;
}
{
	rd(H,W);
	rep(y,H){
		rep(x,W){
			rd(t);
			if(A[i]=t*i)rep(j,2)if(t=f(i-1-j*W))A[f(i)]=t;
			++i;
		}
		++i;
	}
	for(;--i;)z+=i==f(i);
	wt(z);
}