// 考察が何か足らない気がする、
// 絶対コーナーケースがある
#include<iostream>
#include<queue>
using namespace std;

#define inRange(x,a,b) (a <= x && x < b)

int dx[8] = {0,0,1,-1,1,1,-1,-1};
int dy[8] = {1,-1,0,0,1,-1,1,-1};

int main(){
    int h, ww;
    cin >> h >> ww;

    char mat[h][ww];
    for(int i = 0; i < h; i++){
        for(int j = 0; j < ww; j++){
            cin >> mat[i][j];
        }
    }

    int ans = 0, resw = 0, resb = 0;
    for(int i = 0; i < h; i++){
        for(int j = 0; j < ww; j++){
            if(mat[i][j] == '.')    continue;
            int w = 0, b = 0;
            queue<pair<int,int>> q;
            q.push({i,j});
            while(!q.empty()){
                pair<int,int> p = q.front();    q.pop();
                if(mat[p.first][p.second] == '.')   continue;
                if(mat[p.first][p.second] == 'w')   w++;
                else                                b++;
                mat[p.first][p.second] = '.';
                
                for(int k = 0; k < 4; k++){
                    int ni = p.first + dx[k], nj = p.second + dy[k];
                    if(inRange(ni,0,h) && inRange(nj,0,ww) && mat[ni][nj] != '.')    q.push({ni,nj});
                }
            }
            
            int consec = min(w,b);
            ans += 100 * consec;
            resw += w-consec, resb += b-consec;
        }
    }

    int apart = min(resb, resw);
    ans += 10 * apart;
    ans += resb-apart + resw-apart;

    cout << ans << endl;

    return 0;
}