var n,m,i,j,l,d,max,s,t:longint;

a:array[0..101,0..101] of char;

f:array[0..101,0..101] of boolean;

k,b:array[0..10000,0..2] of longint;

begin

readln(n,m);

for i:=1 to n do

begin

for j:=1 to m do

begin

read(a);

if a='#' then f:=true;

end;

readln;

end;

for i:=1 to n do

for j:=1 to m do

begin

if f=true then

begin

s:=1;

t:=1;

k:=i;

k:=j;

f:=false;

while s