Problem: A mouse encountered a nice big cake and decided to take a walk across it, eating the berries on top of the cake on its way. The cake is rectangular, neatly divided into squares; some of the squares have a berry in them, and some don't.

The mouse is in a bit of a hurry, though, so once she enters the cake from its northwest corner (the top left cell in the input data), she will only go east (right) or south (down), until she reaches the southeast corner (the bottom right cell). She will eat every berry in the squares she passes through, but not in the other squares.

The mouse tries to choose her path so as to maximize the number of berries consumed. However, her haste and hunger might be clouding her judgement, leading her to suboptimal decisions...

Input

The first line of input contains two integers H and W (1 ≤ H, W ≤ 5), separated by a space, — the height and the width of the cake.

The next H lines contain a string of W characters each, representing the squares of the cake in that row: '.' represents an empty square, and '*' represents a square with a berry.

Output

Output the number of berries the mouse will eat following her strategy.

Examples

Input


4 3
*..
.*.
..*
...


Output


3


Input


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


Output


2


Input


3 4
..**
*...
....


Output


1


Input


5 5
..*..
.....
**...
**...
**...


Output


1

Solution (in CPP):

Solution:
#include<bits/stdc++.h>

using namespace std;

typedef long long ll;

char p[1005][1005];
ll q[1005][1005]={0},n,m,ans=0,na,nb;

void find(ll a,ll b)
{
	ll i,j,dis=1e9,ti=0;
	for(i=a;i<n;i++)
	{
		for(j=b;j<n;j++)
		{
			if(p[i][j]=='*'&&(abs(i-a)+abs(j-b))!=0)
			    dis=min(dis,abs(i-a)+abs(j-b));
		}
	}
	if(dis==1e9)
	{
		printf("%lld",ans);
		exit(0);
	}
	
	for(i=a;i<n;i++)
	{
		for(j=b;j<n;j++)
		{
			if(p[i][j]=='*'&&(abs(i-a)+abs(j-b))==dis)
			{
				ans++; 
				na=i;
				nb=j;
			    return;
			}
		}
	}
	while(1);
	return;
}

int main()
{
	ll t,i,j;
	
	cin>>n>>m;
	
	for(i=0;i<n;i++)
	    scanf("%s",&p[i]);
	
	for(i=n-1;i>=0;i--)
	{
		for(j=m-1;j>=0;j--)
		{
			q[i][j]=max(q[i+1][j],q[i][j+1]);
			if(p[i][j]=='*') q[i][j]++;
		}
	}
	na=0,nb=0;
	if(p[0][0]=='*') ans++;
	while(1)
	{
		//cout<<na<<" "<<nb<<endl;
		find(na,nb);
	}
	
	return 0;
}