#include<set>
#include<map>
#include<queue>
#include<vector>
#include<algorithm>
#include<bits/stdc++.h>
#define pr pair
#define f first
#define s second
#define ll long long
#define mp make_pair
#define pll pr<ll,ll>
#define pii pr<int,int>
#define piii pr<int,pii>
using namespace std;
int mc[1000006];
bool ok[1000006];
bool rk[1000006];
ll sol(int s[],int n)
{
	int tr=0,fr=0;
	for(int i=1;i<n;i++)
	{
		if(tr<i) mc[i]=0;
		else mc[i]=min(tr-i,mc[fr*2-i]);
		if(i+mc[i]>=tr)
		{
			for(;i+mc[i]<n&&i>mc[i];mc[i]++) if(s[i-mc[i]-1]!=s[i+mc[i]]) break;
			tr=i+mc[i];
			fr=i;
		}
	}
	ok[0]=1;
	int ls=0;
	for(int i=1;i<=n;i++)
	{
		if(i-mc[i]<=ls) ok[i]=1,ls=i;
		else ok[i]=0;
	}
	ls=n;
	rk[n]=1;
	for(int i=n-1;i>=0;i--)
	{
		if(i+mc[i]>=ls) rk[i]=1,ls=i;
		else rk[i]=0;
	}
	int cnt=0;
	ll rt=0;
	for(int i=0;i<=n;i++)
	{
		if(rk[i]) rt+=cnt;
		if(ok[i]) cnt++;
	}
//	for(int i=0;i<=n;i++) cout<<mc[i];
//	cout<<endl;
//	for(int i=0;i<=n;i++) cout<<ok[i];
//	cout<<endl;
//	for(int i=0;i<=n;i++) cout<<rk[i];
//	cout<<endl;
	return rt;
}
string s[1000006];
string t[1000006];
map<string,int> p;
int w[1000006];
int q[1000006];
int main()
{
	ios_base::sync_with_stdio(0);
	int n,m;
	cin>>n>>m;
	for(int i=0;i<n;i++) cin>>s[i];
	for(int i=0;i<n;i++) for(int j=0;j<m;j++) t[j].push_back(s[i][j]);
	for(int i=0;i<n;i++) p[s[i]]=i;
	for(int i=0;i<n;i++) w[i]=p[s[i]];
	for(int i=0;i<m;i++) p[t[i]]=i;
	for(int i=0;i<m;i++) q[i]=p[t[i]];
	cout<<sol(w,n)*sol(q,m)<<endl;
	return 0;
}