#include<cstdio>

#include<algorithm>

#include<cstring>

#include<iostream>

#include<cmath>

#include<cctype>

#include<set>

#include<queue>

#include<vector>

#include<map>

using namespace std;

typedef long long LL;

inline int read() {

    int x=,f=;char ch=getchar();for(;!isdigit(ch);ch=getchar())if(ch=='-')f=-;

    for(;isdigit(ch);ch=getchar())x=x*+ch-'';return x*f;

}

const int mod = , N = ;

int a[N][N], f[N][N], g[N][N], u[N];

struct Node{ int x, sum, len; } sk[N];

char s[N];

int main() {

    int n = read();

    for (int i = ; i <= n; ++i) {

        scanf("%s", s + );

        for (int j = ; j <= n; ++j) a[i][j] = s[j] == 'B';

    }

    int top = , sum = , ans = ;

    memset(u, , sizeof(u));

    for (int k, i = ; i <= n; ++i) {

        for (int j = ; j <= n; ++j) u[j] = a[i][j] ? u[j] +  : ;

        top = sum = ;

        for (int j = ; j <= n; ++j) {

            k = ;

            while (top && sk[top].x > u[j]) k += sk[top].len, sum -= sk[top--].sum;

            sk[++top] = (Node){u[j], u[j] * k, k};

            sum += sk[top].sum - a[i][j];

            f[i][j] = f[i - ][j] + f[i][j - ] - f[i - ][j - ] + sum; f[i][j] %= mod;

            sum += a[i][j];

        }

    }

    memset(u, , sizeof(u));

    for (int k, i = ; i <= n; ++i) {

        for (int j = ; j <= n; ++j) u[j] = a[i][j] ? u[j] +  : ;

        top = sum = ;

        for (int j = n; j; --j) {

            k = ;

            while (top && sk[top].x > u[j]) k += sk[top].len, sum -= sk[top--].sum;

            sk[++top] = (Node){u[j], u[j] * k, k};

            sum += sk[top].sum - a[i][j];

            g[i][j] = g[i - ][j] + g[i][j + ] - g[i - ][j + ] + sum; g[i][j] %= mod;

            sum += a[i][j];

        }

    }

    memset(u, , sizeof(u));

    for (int k, i = n; i; --i) {

        for (int j = ; j <= n; ++j) u[j] = a[i][j] ? u[j] +  : ;

        top = sum = ;

        for (int j = n; j; --j) {

            k = ;

            while (top && sk[top].x > u[j]) k += sk[top].len, sum -= sk[top--].sum;

            sk[++top] = (Node){u[j], u[j] * k, k};

            sum += sk[top].sum - a[i][j];

            ans += sum * f[n][j - ] + sum * f[i - ][n] - sum * f[i - ][j - ]; ans %= mod;

            sum += a[i][j];

        }

    }

    memset(u, , sizeof(u));

    for (int k, i = n; i; --i) {

        for (int j = ; j <= n; ++j) u[j] = a[i][j] ? u[j] +  : ;

        top = sum = ;

        for (int j = ; j <= n; ++j) {

            k = ;

            while (top && sk[top].x > u[j]) k += sk[top].len, sum -= sk[top--].sum;

            sk[++top] = (Node){u[j], u[j] * k, k};

            sum += sk[top].sum - a[i][j];

            ans = (ans - sum * g[i - ][j + ] % mod + mod) % mod;

            sum += a[i][j];

        }

    }

    cout << (ans + mod) % mod;

    return ;

}