#define debug_interval ','
#define dump_interval ' '
#define debug_toggle 1
//{
#include<bits/stdc++.h>
using namespace std;
#define hi cerr<<"hi"<<endl;
#define int long long
#define INT_MAX LLONG_MAX
#define rep(i,n) for(int i=0;i<(n);i++)
#define rep1(i,n) for(int i=1;i<=(n);i++)
#define pb push_back
#define all(v) (v).begin(),(v).end()
#define rall(v) (v).rbegin(),(v).rend()
#define fi first
#define se second
#define mp make_pair
#define rev reverse
#define dans dump(ans)
#define MOD 1000000007
#define amp(v,n) (v).count(n)?v[n]++:v[n]=1
#define sysp system("pause")
#define PI acos(-1)
#define pf push_front
#define ins insert

//{
inline int toInt(string s){int v;istringstream sin(s);sin>>v;return v;}
template<class T> inline string toString(T x){ostringstream sout;sout<<x;return sout.str();}
template<class...A> inline void dump(){cout<<endl;}
template<class...A> inline void dump_rest() {cout<<endl;}
template<class T, class...A> inline void dump_rest(const T& first, const A&... rest){cout<<dump_interval<<first;dump_rest(rest...);}
template<class T,class...A> inline void dump(const T&first,const A&...rest){cout<<first;dump_rest(rest...);}
template<class...A> inline void debug(){cerr<<endl;}
template<class...A> inline void debug_rest() {cerr<<endl;}
template<class T, class...A> inline void debug_rest(const T& first, const A&... rest){cerr<<debug_interval<<first;debug_rest(rest...);}
template<class T,class...A> inline void debug(const T&first,const A&...rest){if(debug_toggle)cerr<<first,debug_rest(rest...);}
unsigned XorShift(void){static unsigned x = 123456789;static unsigned y = 362436069;static unsigned z = 521288629;static unsigned w = 88675123;unsigned t;t = x ^ (x << 11);x = y; y = z; z = w;return w = (w ^ (w >> 19)) ^ (t ^ (t >> 8));}
//}

typedef vector<int>vint;
typedef pair<int,int>pint;
typedef vector<pint>vpint;

template<typename A,typename B>inline void chmin(A &a,B b){if(a>b)a=b;}
template<typename A,typename B>inline void chmax(A &a,B b){if(a<b)a=b;}
template<int m>class mint{private:int i;public:mint() : i(0){}mint(int i): i((i%m+m)%m){}mint operator+(const mint& o){return o.i+i;}mint operator*(const mint& o){return o.i*i;}mint operator-(){return -i;}operator int() {return i;}};

//}

int ans,h,w;
	int c[666][666];
	int yo[666][666]={},ta[666][666]={};

bool f(int y,int x){
    return y>=0&&x>=0&&y<600&&x<600;
}

main(){
	cin>>h>>w;
	int n=600;

	{
		rep(i,h){
			rep(j,w){
				char t;cin>>t;
				if(t=='#')c[i+j][j-i+w]++;
			}
		}
	}
	/*rep(i,n){
        rep(j,n){
            cerr<<c[i][j];
        }
        cerr<<endl;
	}*/

	rep(i,n){
		rep(j,n){
			yo[i][j+1]+=yo[i][j]+c[i][j];
			ta[j+1][i]+=ta[j][i]+c[j][i];
		}
	}
	rep(i,n){
        rep(j,n-1){
            for(int k=j+1;k<n;k++){
                if(c[i][j]&&c[i][k]){

                    int d=k-j;
                    if(f(i-d,0)){
                           // hi;
                        ans+=yo[i-d][k+1]-yo[i-d][j];
                        ans-=c[i-d][k]+c[i-d][j];
                    }
                    if(f(i+d,0)){
                        //hi;
                        ans+=yo[i+d][k+1]-yo[i+d][j];
                        ans-=c[i+d][k]+c[i+d][j];
                    }
                }
            }
        }
	}
	//dans;
	rep(i,n){
        rep(j,n-1){
            for(int k=j+1;k<n;k++){
                if(c[j][i]&&c[k][i]){
                    int d=k-j;
                    if(f(0,i-d)){
                        ans+=ta[k+1][i-d]-ta[j][i-d];
                        //ans-=c[k][i-d]+c[j][i-d];
                    }
                    if(f(0,i+d)){
                        ans+=ta[k+1][i+d]-ta[j][i+d];
                        //ans-=c[k][i+d]+c[j][i+d];
                    }
                }
            }
        }
	}
	dans;
}

/*
3 3
###
###
###
*/

/*.*..
....
....
****
....
*****/



