/* **********************************************************************
2分图最佳匹配，用的最小费用流
SPFA求增广路径，倒序追踪更新流，在Edmonds_karp算法的基础上修改。
需要注意结点的编号，man是从1~n，house是n+1~2*n，附加源点和汇点的容量
和权值分别为1和0。
需要注意的细节很多
********************************************************************** */
#include < iostream >
#include < queue >
using   namespace  std;
queue < int > q;
 bool  flag[ 220 ]; // 标记是否出队
char  m[ 220 ][ 220 ]; // 地图
int  r,c,s,t;
 struct  MAP
{
     int  c,f,w;
}map[ 220 ][ 220 ];
 int  maxflow,mincost,nm,nh,man[ 101 ][ 2 ],house[ 101 ][ 2 ],v[ 220 ],pre[ 220 ],cost[ 220 ];
 // cost[]----费用,pre[]----父节点
void  Init() // 构造网络流
{
     int  i,j;
    s = 2 * nh + 2 ,t = 2 * nh + 1 ;
     for (i = 1 ;i <= nm;i ++ )
    {
         for (j = 1 ;j <= nh;j ++ )
        {
            map[i][nm + j].c = 1 ;
            map[i][nm + j].w = abs(man[i][ 0 ] - house[j][ 0 ]) + abs(man[i][ 1 ] - house[j][ 1 ]);
        }
    }
     for (i = 1 ;i <= nm;i ++ )
    {
        map[s][i].c = 1 ; // nh+2为附加源点,nh+1为附加汇点
        map[s][i].w = 0 ;
    }
     for (i = nh + 1 ;i <= 2 * nh;i ++ )
    {
        map[i][t].c = 1 ;
        map[i][t].w = 0 ;
    }
     return  ;
}
 bool  spfa()
{
     int  i,j;
    memset(v, 0 , sizeof (v));
    memset(flag, 0 , sizeof (flag));
    memset(pre, 0 , sizeof (pre));
     for (i = 1 ;i <= 2 * nh + 2 ;i ++ )
    {
        cost[i] = INT_MAX;
    }
     while ( ! q.empty())
        q.pop();
    v[s] = INT_MAX;
    pre[s] = s;
    cost[s] = 0 ;
    flag[s] = 1 ;
    q.push(s);
     while ( ! q.empty())
    {
        i = q.front();
         for (j = 1 ;j <= 2 * nh + 2 ;j ++ )
        {
             if (map[i][j].f < map[i][j].c && cost[i] + map[i][j].w < cost[j])
            {
                cost[j] = cost[i] + map[i][j].w;
                v[j] = min(v[i],map[i][j].c - map[i][j].f);
                pre[j] = i;
                 if ( ! flag[j])
                {
                    flag[j] = 1 ;
                    q.push(j);
                }
            }
             else   if (map[j][i].f && cost[i] - map[j][i].w < cost[j])
            {
                cost[j] = cost[i] - map[j][i].w;
                v[j] = min(v[i],map[j][i].f);
                pre[j] =- 1 * i;
                 if ( ! flag[j])
                {
                    flag[j] = 1 ;
                    q.push(j);
                }
            }
        }
        q.pop();
        flag[i] = 0 ;
    }
     if (v[t] > 0 )
         return   1 ;
     else  
         return   0 ;
}
 int  mcmf()
{
     int  i,j;
    maxflow = 0 ,mincost = 0 ;
     while (spfa())
    {
        j = t;
        maxflow += v[t];
         while (j != s)
        {
            i = abs(pre[j]);
             if (pre[j] > 0 )
            {
                map[i][j].f += v[t];
                mincost += v[t] * map[i][j].w;
            }
             else
            {
                map[j][i].f -= v[t];
                mincost -= v[t] * map[j][i].w;
            }
            j = i;
        }
    }
     return  mincost;
}
 int  main()
{
     int  i,j,k;
     while (scanf( " %d%d " , & r, & c) != EOF && r && c)
    {
        memset(map, 0 , sizeof (map));
        memset(man, 0 , sizeof (man));
        memset(house, 0 , sizeof (house));
        nm = nh = 0 ;
        getchar();
         for (i = 1 ;i <= r;i ++ )
        {
             for (j = 1 ;j <= c;j ++ )
            {
                scanf( " %c " , & m[i][j]);
                 if (m[i][j] == ' m ' )
                {
                    man[ ++ nm][ 0 ] = i;
                    man[nm][ 1 ] = j;
                }
                 else   if (m[i][j] == ' H ' )
                {
                    house[ ++ nh][ 0 ] = i;
                    house[nh][ 1 ] = j;
                }
            }
            getchar();
        }
        Init();
        printf( " %d\n " ,mcmf());
    }
     return   0 ;
}