program main
  implicit none
  integer::H,W,i,j
  integer::star(2,3)
  integer::b,e,is,js
  character*100::S(100)
  read *,H,W
  read *,S(1:H)(1:W)
  do i=1,H
     b = INDEX(S(i)(1:W),'*')
     e = INDEX(S(i)(1:W),'*',.true.)

     if(b.ne.0.and.e.ne.0) then
        if(b.eq.e) then
           js = MOD((b+W),W)+1
           is = i
        else
           js = b
           is = MOD((i+H),H)+1
        end if
        S(is)(js:js)='*'
        exit
     end if
  end do
  do i=1,H
     print '(a)',S(i)(1:W)
  end do
end program main