ll@n,z=0;
string@s[n];
rep(y,n){
	ll w=0;
	rep(x,n){
		w+=s[y][x]=='A'?1:s[y][x]=='B'?-1:0;
	}
	z+=w==n-1;
}
rep(x,n){
	ll w=0;
	rep(y,n){
		w+=s[y][x]=='A'?1:s[y][x]=='B'?-1:0;
	}
	z+=w==n-1;
}
rep(1){
	ll w=0;
	rep(x,n){
		w+=s[x][x]=='A'?1:s[x][x]=='B'?-1:0;
	}
	z+=w==n-1;
}
rep(1){
	ll w=0;
	rep(x,n){
		w+=s[x][n+~x]=='A'?1:s[x][n+~x]=='B'?-1:0;
	}
	z+=w==n-1;
}
wt(z);