#include<iostream>
#include<cstdio>
#include<cstdlib>
#include<cstring>
#include<algorithm>
using namespace std;
const int h=333;
const int lim=1000;
char s[1010][1010];
int sum1[1010][1010],sum2[1010][1010];
int main()
{
	int n,m,cnt=0;
	long long la,ans=0;
	scanf("%d%d",&n,&m);
	memset(s,0,sizeof(s));
	for(int i=h+1;i<=h+n;i++)
		scanf("%s",s[i]+h+1);
	memset(sum1,0,sizeof(sum1));
	memset(sum2,0,sizeof(sum2));
	for(int i=1;i<=1000;i++)
		for(int j=1;j<=1000;j++)
		{
			sum1[i][j]=sum1[i-1][j-1]+(s[i][j]=='#');
			sum2[i][j]=sum2[i-1][j+1]+(s[i][j]=='#');
		}
	la=0;
	for(int i=h+1;i<=h+n;i++)
		for(int j=h+1;j<=h+m;j++)
			for(int k=1;k<=300;k++)
			{
				cnt=(s[i-k][j]=='#')+(s[i+k][j]=='#')+(s[i][j-k]=='#')+(s[i][j+k]=='#');
				if(cnt==3)
					ans--;
				else if(cnt==4)
					ans-=4;
				if((s[i-k][j]=='#')&&(s[i][j+k]=='#'))
					ans+=sum1[i+k][j]-sum1[i-1][j-k-1];
				if((s[i+k][j]=='#')&&(s[i][j-k]=='#'))
					ans+=sum1[i][j+k]-sum1[i-k-1][j-1];
				if((s[i+k][j]=='#')&&(s[i][j+k]=='#'))
					ans+=sum2[i][j-k]-sum2[i-k-1][j+1];
				if((s[i-k][j]=='#')&&(s[i][j-k]=='#'))
					ans+=sum2[i+k][j]-sum2[i-1][j+k+1];
			}
	printf("%lld",ans);
	return 0;
}