program ee
    implicit none
    integer :: n
    character(10) :: s
    integer :: k
    integer :: i
    character :: m
    read(*,*)n
    read(*,*)s
    read(*,*)k
    m = s(k:k)
    do i = 1,n
        !TODO_statement
        if ( m /= s(i:i) ) then
            s(i:i) = '*'
        end if
    end do
    write(*,*)s
end program ee