// Nothing is Given, Everything is Earned.
#pragma GCC optimize("Ofast")
#include<bits/stdc++.h>
using namespace std;


int main()
{
	cin.tie(nullptr)->sync_with_stdio(false);
	int n,m; cin>>n>>m;
	vector<string>s(n);
	vector<vector<int>> nxt(n,vector<int>(m));
	for(auto &x:s)cin>> x;
	for(int j=0;j<m;j++)
	{
		nxt[n-1][j]=n-1;
		for(int i=n-2;~i;i--)
			nxt[i][j]=(s[i][j]==s[i+1][j])?nxt[i+1][j]:i;
	}
	vector<bitset<2000>> d(n);
	for(int i=0;i<n;i++)
	{
		d[i][0]=1;
		for(int j=1;j<m;j++)
			d[i][j]=s[i][j]!=s[i][j-1];
	}
	long long ans=0;
	for(int i=0;i<n;i++)
	{
		vector<vector<int>> e(n);
		vector<int>vis(m);
		for(int j=0;j<m;j++) e[nxt[i][j]].push_back(j);
		for(int j=i;j<n;j++)
		{
			if(j!=i)
			{
				auto b=d[i]|d[j];
				int cnt=1-vis[0];
				int pre=0;
				for(int k=1;k<m;k++)
				{
					if(b[k])cnt=0;
					if(!vis[k])pre+=cnt,cnt++;
				}
				ans+=pre;
			}
			for(auto k:e[j]) vis[k]=1;
		}
	}
	cout<<ans<<'\n';
	return 0;
}