ll@n,z=0,y=0;
rep(n){
	string@s;
	ll c=0;
	rep(i,2n){
		if(s[i]=='.'){
			z+=i-c++;
		}
	}
	y+=c-=n;
	z+=abs(y)+c*(c+1)/2;
}
wt(z);