#include<bits/stdc++.h>
#define int long long
using namespace std;
#define fi first
#define se second
#define rep(i,a,b) for(int i=(a);i<=(b);i++)
#define per(i,a,b) for(int i=(a);i>=(b);i--)
#define eb emplace_back
typedef pair<int,int> pii;
typedef vector<int> vi;
typedef vector<pii> vp;
typedef unsigned long long ull;
 
long long read() {
    long long res=0, w=1; char c=getchar();
    while(!isdigit(c)) {if(c=='-') w=-1; c=getchar();}
    while(isdigit(c)) {res=res*10+c-48, c=getchar();}
    return res*w;
}

const int N=5009;
int n,m,ans;
char s[N][N];

bool check1(int x,int y) {
    if(y==1||y==m) return 0;
    if(s[x][y-1]!='R') return 0;
    if(s[x][y]!='G') return 0;
    if(s[x][y+1]!='W') return 0;
    return 1;
}
bool check2(int x,int y) {
    if(x==1||x==n) return 0;
    if(s[x-1][y]!='R') return 0;
    if(s[x][y]!='G') return 0;
    if(s[x+1][y]!='W') return 0;
    return 1; 
}

signed main() {
    n=read(), m=read();
    rep(i,1,n) scanf("%s",s[i]+1);
    rep(s,2,n+m) {
        int f0=0, f1=0, f2=0;
        rep(x,1,s-1) {
            int y=s-x;
            bool c1=check1(x,y), c2=check2(x,y);
            int t0=f0;
            f0=max(f0,max(f1,f2));
            if(c1) f1=max(f1,t0)+1;
            if(c2) f2=max(f2,t0)+1;
        }
        ans+=max(max(f1,f2),f0);
    }
    printf("%lld\n",ans);
    return 0;
}