ll@h,@w,z=h,d=4,a[d][h+2][w+2]{};
string@s[h];

rep(y,h){
	rep(x,w){
		ll b=0;
		if(s[y][x]=='#'){
			b=h;
			b<?=a[0][y+0][x+1];
			b<?=a[0][y+1][x+0];
			b<?=a[0][y+0][x+0];
			b+=1;
		}
		a[0][y+1][x+1]=b;
	}
}

rep(y,h){
	rrep(x,w){
		ll b=0;
		if(s[y][x]=='#'){
			b=h;
			b<?=a[1][y+0][x+1];
			b<?=a[1][y+1][x+2];
			b<?=a[1][y+0][x+2];
			b+=1;
		}
		a[1][y+1][x+1]=b;
	}
}

rrep(y,h){
	rep(x,w){
		ll b=0;
		if(s[y][x]=='#'){
			b=h;
			b<?=a[2][y+2][x+1];
			b<?=a[2][y+1][x+0];
			b<?=a[2][y+2][x+0];
			b+=1;
		}
		a[2][y+1][x+1]=b;
	}
}

rrep(y,h){
	rrep(x,w){
		ll b=0;
		if(s[y][x]=='#'){
			b=h;
			b<?=a[3][y+2][x+1];
			b<?=a[3][y+1][x+2];
			b<?=a[3][y+2][x+2];
			b+=1;
		}
		a[3][y+1][x+1]=b;
	}
}

wt(min[y,0,h,x,0,w@s[y][x]=='#'](a[0][y+1][x+1]+a[1][y+1][x+1]+a[2][y+1][x+1]+a[3][y+1][x+1]-3));