Problem: Little Vasya likes painting fractals very much.

He does it like this. First the boy cuts out a 2 × 2-cell square out of squared paper. Then he paints some cells black. The boy calls the cut out square a fractal pattern. Then he takes a clean square sheet of paper and paints a fractal by the following algorithm:

  1. He divides the sheet into four identical squares. A part of them is painted black according to the fractal pattern. 
  2. Each square that remained white, is split into 4 lesser white squares, some of them are painted according to the fractal pattern. Each square that remained black, is split into 4 lesser black squares. 



In each of the following steps step 2 repeats. To draw a fractal, the boy can make an arbitrary positive number of steps of the algorithm. But he need to make at least two steps. In other words step 2 of the algorithm must be done at least once. The resulting picture (the square with painted cells) will be a fractal. The figure below shows drawing a fractal (here boy made three steps of the algorithm).

<image>

One evening Vasya got very tired, so he didn't paint the fractal, he just took a sheet of paper, painted a n × m-cell field. Then Vasya paint some cells black. 

Now he wonders, how many squares are on the field, such that there is a fractal, which can be obtained as described above, and which is equal to that square. Square is considered equal to some fractal if they consist of the same amount of elementary not divided cells and for each elementary cell of the square corresponding elementary cell of the fractal have the same color.

Input

The first line contains two space-separated integers n, m (2 ≤ n, m ≤ 500) — the number of rows and columns of the field, correspondingly. 

Next n lines contain m characters each — the description of the field, painted by Vasya. Character "." represents a white cell, character "*" represents a black cell.

It is guaranteed that the field description doesn't contain other characters than "." and "*".

Output

On a single line print a single integer — the number of squares on the field, such that these squares contain a drawn fractal, which can be obtained as described above.

Examples

Input

6 11
......*.***
*.*.*....**
.***....*.*
..***.*....
.*.*.....**
......*.*..


Output

3


Input

4 4
..**
..**
....
....


Output

0

Note

The answer for the first sample is shown on the picture below. Fractals are outlined by red, blue and green squares.

<image>

The answer for the second sample is 0. There is no fractal, equal to the given picture.

<image>

Solution (in CPP):

Solution:
#include <bits/stdc++.h>
using namespace std;
const int maxn = 505;
const long long base[] = {7, 17, 37, 67, 107, 157, 227, 337, 397},
                mod = 1000000000039;
long long f[maxn][maxn][10];
char a[maxn][maxn], HM[maxn][maxn], fac[maxn][maxn];
map<long long, int> mp[maxn];
int d2 = 0;
long long Hash(int x1, int y1, int x2, int y2, int id) {
  if (id == 0) return HM[x1][y1];
  long long hs[4], ret = 0;
  hs[0] = Hash(x1, y1, (x1 + x2) / 2, (y1 + y2) / 2, id - 1);
  hs[1] = Hash(x1, (y1 + y2) / 2 + 1, (x1 + x2) / 2, y2, id - 1);
  hs[2] = Hash((x1 + x2) / 2 + 1, y1, x2, (y1 + y2) / 2, id - 1);
  hs[3] = Hash((x1 + x2) / 2 + 1, (y1 + y2) / 2 + 1, x2, y2, id - 1);
  for (int i = 0; i < 4; i++) ret = (ret * base[id] + hs[i]) % mod;
  return ret;
}
void NewFac(char t[3][3], int n, int id) {
  if (n * 2 >= maxn) return;
  char na[2 * n + 1][2 * n + 1];
  for (int i = 1; i <= n; i++) {
    for (int j = 1; j <= n; j++) {
      if (fac[i][j] == 1) {
        na[2 * i - 1][2 * j - 1] = t[1][1];
        na[2 * i - 1][2 * j] = t[1][2];
        na[2 * i][2 * j - 1] = t[2][1];
        na[2 * i][2 * j] = t[2][2];
      } else
        na[2 * i - 1][2 * j - 1] = na[2 * i - 1][2 * j] = na[2 * i][2 * j - 1] =
            na[2 * i][2 * j] = 2;
    }
  }
  for (int i = 1; i <= 2 * n; i++)
    for (int j = 1; j <= 2 * n; j++) HM[i][j] = na[i][j];
  long long hs = Hash(1, 1, 2 * n, 2 * n, id + 1);
  mp[2 * n][hs] = 1;
  for (int i = 1; i <= 2 * n; i++)
    for (int j = 1; j <= 2 * n; j++) fac[i][j] = na[i][j];
  NewFac(t, n * 2, id + 1);
}
void Dfs(char t[3][3], int x, int y) {
  if (y == 3) ++x, y = 1;
  if (x == 3) {
    for (int i = 1; i <= 2; i++)
      for (int j = 1; j <= 2; j++) fac[i][j] = t[i][j];
    NewFac(t, 2, 1);
    return;
  }
  t[x][y] = 1;
  Dfs(t, x, y + 1);
  t[x][y] = 2;
  Dfs(t, x, y + 1);
}
void Init() {
  char t[3][3];
  Dfs(t, 1, 1);
}
int main() {
  int n, m;
  scanf("%d%d", &n, &m);
  for (int i = 1; i <= n; i++) scanf("%s", a[i] + 1);
  for (int i = 1; i <= n; i++) {
    for (int j = 1; j <= m; j++) {
      if (a[i][j] == '.')
        a[i][j] = 1;
      else
        a[i][j] = 2;
    }
  }
  Init();
  for (int i = 1; i <= n; i++)
    for (int j = 1; j <= m; j++) f[i][j][0] = a[i][j];
  long long hs[4], qry, ans = 0;
  for (int i = 1; i <= n; i++) {
    for (int j = 1; j <= m; j++) {
      for (int k = 1; k <= 8; k++) {
        if (i < (1 << k) || j < (1 << k)) break;
        qry = 0;
        hs[0] = f[i - (1 << (k - 1))][j - (1 << (k - 1))][k - 1];
        hs[1] = f[i - (1 << (k - 1))][j][k - 1];
        hs[2] = f[i][j - (1 << (k - 1))][k - 1];
        hs[3] = f[i][j][k - 1];
        for (int i = 0; i < 4; i++) qry = (qry * base[k] + hs[i]) % mod;
        f[i][j][k] = qry;
        ans += mp[1 << k][qry];
      }
    }
  }
  printf("%lld", ans);
  return 0;
}