program eee
  implicit none
  integer :: N,K,i
  character(len=10) :: S,Se
  character :: origin

  read(*,*) N
  read(*,*) S
  read(*,*) K
  origin=S(K:K)
  Se='          '
  do i=1,N
!     Se(i:i)=S(i:i)                                                            
     if(S(i:i).eq.origin) then
        Se(i:i)=origin
     else
        Se(i:i)='*'
     endif
  enddo
  write(*,'(a)') trim(Se)
end program eee