h,w=gets.split.map &:to_i
w+=2
C=?.*w+h.times.map{?.+gets}*''+?.*w
g={}
x=[0,0]
i=-1
C.bytes{|c|i+=1;(x[c/99]+=1;[-1,1,-w,w].map{|j|g[i]?g[i]<<i+j:g[i]=[i+j]if/\w/=~C[i+j]})if c>97}
a=0
m={}
g.keys.map{|v|(u={};dfs=->v{u[v]=1;g[v].map{|u|w=m[u];(m[v]=u;m[u]=v;return 1)if !w||(!u[w]&&dfs[w])}if g[v];()};a+=90 if dfs[v])if !m[v]}
p a+9*x.min+x.max