program blabla(input,output);
var i,j : integer;
    a,b,max,suma:integer;
    s:string[1000];
    pamet,pred:array[1..1000] of integer;
    chyba:boolean;
begin
  read(a);readln(b);
  while (a<>0) or (b<>0) do begin
    suma:=0;
    readln(s);max:=0;chyba:=false;
    for i:=1 to b do begin
      pamet[i]:=0;pred[i]:=0;
      if s[i]='#' then begin
        if i>1 then begin
          if s[i-1]='#' then begin pamet[i]:=pamet[i-1];end
          else begin
            inc(max);pamet[i]:=max;
          end;
        end else {predchazejici nebyla} begin
          inc(max);pamet[i]:=max;
        end;  
      end;
    end;
    if a>1 then for j:=2 to a do begin
      readln(s);
      for i:=1 to b do begin pred[i]:=pamet[i];pamet[i]:=0;
      {write('*',pred[i]);} end;{writeln('');}
      if not(chyba) then for i:=1 to b do begin
        if not(chyba) then begin
          if (pred[i]<>0) and (s[i]='#') then pamet[i]:=pred[i];
          if i>1 then begin

{6,14,7}    if (pred[i]<>0) and (pamet[i-1]<>0) and ((pred[i-1]=0) or (pamet[i]=0)) then chyba:=true;

{9,11,13}   if (pred[i-1]<>0) and (s[i]='#') and ((pred[i]=0) or (pamet[i-1]=0)) then chyba:=true;

{10}        if (pamet[i-1]<>0) and (pred[i]=0) and (pred[i-1]=0) and (s[i]='#') then pamet[i]:=pamet[i-1];

{8}         if (pamet[i-1]=0) and (pred[i]=0) and (pred[i-1]=0) and (s[i]='#') then begin inc(max);pamet[i]:=max;end;

{1}         if (pamet[i]=0) and (pred[i]=0) and (pred[i-1]<>0) and (pamet[i-1]=0) then inc(suma); 

{posl.4-7}  if (i=b) and (pamet[i]=0) and (pred[i]<>0) then inc(suma);
          end else {prvni prvek na radce} begin
            if (s[i]='#') and (pred[i]=0) then begin inc(max);pamet[i]:=max;end;
            if (s[i]<>'#') and (pred[i]<>0) then begin inc(suma);end;            
          end;
        end;
      end;
    end;
    if chyba then writeln('Bad placement.') 
      else begin
        if b>1 then begin
          for i:=2 to b do begin
            if (pamet[i]=0) and (pamet[i-1]<>0) then inc(suma);
            if (i=b) and (pamet[i]<>0) then inc(suma);
          end;
        end;
        writeln('There are ',suma:1,' ships.');
      end;  

  read(a);readln(b);
 end;
end.