#pragma GCC optimize("Ofast")
#pragma GCC optimize("unroll-loops")
#pragma GCC push_options
#pragma GCC target("sse,sse2,sse3,ssse3,sse4,popcnt,abm,mmx,avx")
#include<bits/stdc++.h>
#include <xmmintrin.h>
#include <immintrin.h>
using namespace::std;
__attribute__((constructor))void init(){cin.tie(0);ios::sync_with_stdio(false);cout<<fixed<<setprecision(15);}
#include<ext/pb_ds/assoc_container.hpp>
#include<ext/pb_ds/tree_policy.hpp>
#include <ext/pb_ds/priority_queue.hpp>
#include<ext/pb_ds/tag_and_trait.hpp>
// #include <boost/multiprecision/cpp_dec_float.hpp>
// #include <boost/multiprecision/cpp_int.hpp>
// namespace mp = boost::multiprecision;
// typedef mp::number<mp::cpp_dec_float<0>> cdouble;
// typedef mp::cpp_int cint;
template<typename T>using pbds=__gnu_pbds::tree<T,__gnu_pbds::null_type,less<T>,__gnu_pbds::rb_tree_tag,__gnu_pbds::tree_order_statistics_node_update>;
template<typename T>using pbds_map=__gnu_pbds::tree<T,T,less<T>,__gnu_pbds::rb_tree_tag,__gnu_pbds::tree_order_statistics_node_update>;
template<typename T,typename E>using hash_map=__gnu_pbds::gp_hash_table<T,E>;
template<typename T>using pqueue =__gnu_pbds::priority_queue<T, greater<T>,__gnu_pbds::rc_binomial_heap_tag>;
typedef long long lint;
#define INF (1LL<<60)
#define IINF (1<<30)
#define LINF (9223372036854775807LL)
#define EPS (1e-10)
#define endl ('\n')
#define MOD 1000000007LL
//#define MOD 998244353LL
typedef vector<lint> vec;
typedef vector<vector<lint>> mat;
typedef vector<vector<vector<lint>>> mat3;
typedef vector<string> svec;
typedef vector<vector<string>> smat;
template<typename T>inline void numout(T t){bool f=0;for(auto i:t){cout<<(f?" ":"")<<i<INF/2?i:"INF";f=1;}cout<<endl;}
template<typename T>inline void numout2(T t){for(auto i:t)numout(i);}
template<typename T>inline void output(T t){bool f=0;for(auto i:t){cout<<(f?" ":"")<<i;f=1;}cout<<endl;}
template<typename T>inline void output2(T t){for(auto i:t)output(i);}
template<typename T>inline void _output(T t){bool f=0;for(lint i=0;i<t.size();i++){cout<<f?"":" "<<t[i];f=1;}cout<<endl;}
template<typename T>inline void _output2(T t){for(lint i=0;i<t.size();i++)output(t[i]);}
#define rep(i,n) for(lint i=0;i<lint(n);++i)
#define repi(i,a,b) for(lint i=lint(a);i<(lint)(b);++i)
#define rrep(i,n) for(lint i=lint(n)-1;i>=0;--i)
#define rrepi(i,a,b) for(lint i=lint(b)-1;i>=lint(a);--i)
#define irep(i) for(lint i=0;;++i)
#define all(n) begin(n),end(n)
#define dist(a,b,c,d) sqrt(pow(a-c,2)+pow(b-d,2))
inline lint gcd(lint A,lint B){return B?gcd(B,A%B):A;}
inline lint lcm(lint A,lint B){return A/gcd(A,B)*B;}
// inline cint cgcd(cint A,cint B){return B?cgcd(B,A%B):A;}
// inline cint clcm(cint A,cint B){return A/cgcd(A,B)*B;}
bool chmin(auto& s,const auto& t){bool res=s>t;s=min(s,t);return res;}
bool chmax(auto& s,const auto& t){bool res=s<t;s=max(s,t);return res;}
const vector<lint> dx={1,0,-1,0,1,1,-1,-1};
const vector<lint> dy={0,1,0,-1,1,-1,1,-1};
#define SUM(v) accumulate(all(v),0LL)
auto call=[](auto f,auto... args){return f(f,args...);};

template<typename T>
struct AVL_BASE{
    struct node{
        T val;
        int sz=1,dep=1;
        node* ch[2]={0,0};
        node(T val):val(val){}
        void cpy(node* t){val=t->val;}
    };
    using np=node*;
    int sz(np t){return t?t->sz:0;}
    int dep(np t){return t?t->dep:0;}
    np root=0;
    np update(np t){
        t->sz=sz(t->ch[0])+1+sz(t->ch[1]);
        return t;
    }
    np merge_with_root(np s,np t,np u){
        if(abs(sz(s)-sz(u))<2){
            t->ch[0]=s;t->ch[1]=u;
            return update(t);
        }
        if(sz(s)>sz(u)){
            s->ch[1]=merge_with_root(s->ch[1],t,u);
            return update(s);
        }else{
            u->ch[0]=merge_with_root(s,t,u->ch[0]);
            return update(u);
        }
    }
    np make_root(np& t){
        if(t->ch[1]){
            np res=make_root(t->ch[1]);
            update(t);
            return res;
        }
        else {
            np res=t;
            t=t->ch[0];
            return res;
        }
    }
    np merge(np s,np t){
        if(!s||!t)return s?s:t;
        np u=make_root(s);
        return merge_with_root(s,u,t);
    }
    pair<np,np>split(np t,int i){
        if(!t)return make_pair(nullptr,nullptr);
        np s=t->ch[0],u=t->ch[1];
        t->ch[0]=0;t->ch[1]=0;
        if(i==sz(s)){
            return make_pair(s,merge_with_root(0,t,u));
        }
        if(i<sz(s)){
            auto r=split(s,i);
            return make_pair(r.first,merge_with_root(r.second,t,u));
        }else{
            auto r=split(u,i-sz(s)-1);
            return make_pair(merge_with_root(s,t,r.first),r.second);
        }
    }
    public:
    int size(){return sz(root);}
    void insert(int x,T v){
        assert(0<=x&&x<=size());
        auto s=split(root,x);
        root=merge_with_root(s.first,new node(v),s.second);
    }
    void erase(int x){
        assert(0<=x&&x<size());
        auto s=split(root,x);
        auto t=split(s.second,1);
        root=merge(s.first,t.second);
    }
    T sum(T l,T r){

    }
};

template<typename T>
struct AVL_array:AVL_BASE<T>{
    using AVL_BASE<T>::AVL_BASE;
    void push_back(T v){this->insert(this->size(),v);}
    void pop_back(){this->erase(this->size()-1);}
};

int main(){
    lint h,w;
    cin>>h>>w;
    vector<string>s(h);
    rep(i,h)cin>>s[i];
    mat v(h+w,vec(h+w,0));
    mat a(h+w,vec(h+w+1,0));
    mat b(h+w+1,vec(h+w,0));
    rep(i,h)rep(j,w){
        if(s[i][j]=='#')v[i+j][i+w-1-j]=1;
    }
    rep(i,h+w){
        rep(j,h+w)repi(k,j+1,h+w){
            if(v[i][j]&&v[i][k]){
                if(i+k-j<h+w){
                    a[i+k-j][j]++;
                    a[i+k-j][k+1]--;
                }
                if(i-k+j>=0){
                    a[i-k+j][j]++;
                    a[i-k+j][k+1]--;
                }
            }
        }
    }
    rep(i,h+w){
        rep(j,h+w)repi(k,j+1,h+w){
            if(v[j][i]&&v[k][i]){
                if(i+k-j<h+w){
                    b[j+1][i+k-j]++;
                    b[k][i+k-j]--;
                }
                if(i-k+j>=0){
                    b[j+1][i-k+j]++;
                    b[k][i-k+j]--;
                }
            }
        }
    }
    rep(i,h+w)rep(j,h+w){
        a[i][j+1]+=a[i][j];
    }
    rep(i,h+w)rep(j,h+w){
        b[i+1][j]+=b[i][j];
    }
    lint ans=0;
    rep(i,h+w)rep(j,h+w){
        ans+=v[i][j]*(a[i][j]+b[i][j]);
    }
    cout<<ans<<endl;
}

Measured memory_bytes: 8832