#include<bits/stdc++.h>
#define Yukinoshita namespace
#define Yukino std
using Yukinoshita Yukino;
int read()
{
	int s=0,w=1;
	char ch=getchar();
	while(ch<'0'||ch>'9') w=ch=='-'?-1:1,ch=getchar();
	while(ch>='0'&&ch<='9') s=s*10+ch-'0',ch=getchar();
	return s*w;
}
/*
容斥使得我神志不清了。

你妈的。

A:只有一个黄边

B:只有一个蓝边

C:三黄，三蓝，没有同色三角形

现在要算 C-A-B

D:蓝色四元环

E:黄色四元环

我tm

很好。

s1:枚举每个蓝边，得到 4D+C

s2:枚举每个黄边，得到 4E+C

s3:枚举蓝色四元环对点（这个是黄的），得到 A+2D

s4:反之，得到 B+2E

C-A-B 是啥呢？显然了。

为啥我没想到呢？因为我没把式子列出来，没发现上面 C 的系数带 2，以为消不掉。 

妈妈省的。 
*/
const int mxn=2005;
char s[mxn][mxn];
bitset<mxn> t[mxn],rt[mxn];
int main()
{
	int n=read(),i,j,k,l;
	long long s1=0,s2=0,s3=0,s4=0;
	for(i=1;i<=n;i++)
		scanf("%s",s[i]+1);
	for(i=1;i<=n;i++)
		for(j=1;j<=n;j++)
		{
			if(s[i][j]=='B')
				t[i][j]=1/*,cout<<i<<' '<<j<<endl*/ ;
			if(s[i][j]=='Y')
				rt[i][j]=1;
		}
	for(i=1;i<=n;i++)
		for(j=1;j<i;j++)
			if(t[i][j])
				s1+=1ll*(t[i]&rt[j]).count()*(t[j]&rt[i]).count();
			else
				s2+=1ll*(t[i]&rt[j]).count()*(t[j]&rt[i]).count();
	for(i=1;i<=n;i++)
		for(j=1;j<i;j++)
			if(!t[i][j])
			{
				int c=(t[i]&t[j]).count();
				s3+=1ll*c*(c-1)/2;
			}
			else
			{
				int c=(rt[i]&rt[j]).count();
				s4+=1ll*c*(c-1)/2;
			}
	cout<<(s1+s2-s3*2-s4*2)/2;
}