recursive subroutine sub(kuudou,j,i)
  implicit none
  integer::j,i
  integer,allocatable::kuudou(:,:)

  if (kuudou(j+1,i  ).eq.1) then
     kuudou(j+1,i) = 2
     call sub(kuudou,j+1,i)
  end if
  if (kuudou(j-1,i  ).eq.1) then
     kuudou(j-1,i) = 2
     call sub(kuudou,j-1,i)
  end if
  if (kuudou(j  ,i+1).eq.1) then
     kuudou(j,i+1) = 2
     call sub(kuudou,j,i+1)
  end if
  if (kuudou(j  ,i-1).eq.1) then
     kuudou(j,i-1) = 2
     call sub(kuudou,j,i-1)
  end if
end subroutine sub

program main
  implicit none
  interface
     recursive subroutine sub(kuudou,j,i)
       integer::j,i
       integer,allocatable::kuudou(:,:)
     end subroutine sub
  end interface
  integer::W,H,i,j,k
  character*20,allocatable::C(:)
  integer,allocatable::kuudou(:,:)
  read *,W,H

  allocate(C(H))
  allocate(kuudou(0:W+1,0:H+1))
  read *, C

  kuudou = 0
  do i=1,H
     do j=1,W
        if(C(i)(j:j).eq.'.') then
           kuudou(j,i) = 1
        end if
     end do
  end do

  do i=1,H
     do j=1,W
        if(kuudou(j,i).eq.1) then
           kuudou(j,i)=2
           call sub(kuudou,j,i)
           goto 100
        end if
     end do
  end do
100 continue

  do k=2,H+W
     do i=1,H
        do j=1,W
           if(kuudou(j,i).ne.k) cycle
           if ((kuudou(j+1,i  ).eq.1) .or. &
                (kuudou(j-1,i  ).eq.1) .or. &
                (kuudou(j  ,i+1).eq.1) .or. &
                (kuudou(j  ,i-1).eq.1)) then
              print '(i0)' , k-2
              return
           end if
           if (kuudou(j+1,i  ).eq.0) then
              kuudou(j+1,i  ) = k+1
           end if
           if (kuudou(j-1,i  ).eq.0) then
              kuudou(j-1,i  ) = k+1
           end if
           if (kuudou(j,i+1  ).eq.0) then
              kuudou(j,i+1  ) = k+1
           end if
           if (kuudou(j,i-1  ).eq.0) then
              kuudou(j,i-1  ) = k+1
           end if
        end do
     end do
  end do
end program