h,w,*q=$<.read.split
q=h+q*?.+h*=w=w.to_i+1
g={}
x=a=0,i=0
q.bytes{|c|g[i]=[];c>97&&(x[c/99]+=1;[-1,1,-w,w].map{|j|q[i+j]>?a&&g[i]<<i+j});i+=1}
m={}
g.map{|v,_|m[v]||(t={};d=->y{t[y]=1;y&&g[y].map{|u|t[w=m[u]]||d[w]<1&&w||(m[m[y]=u]=y;return 90)};0};a+=d[v])}
p a+9*x.min+x.max