module Main where

import           Control.Monad
import           Data.List
import           Data.Ord
import           Data.List.Split
import           Data.Array.IO
import qualified Data.Vector            as V
import           Text.Printf

main :: IO ()
main = do
  n <- getLine
  s <- getLine
  k <- readLn
  let key = s !! (k - 1)
  putStrLn $ map (\ x -> (\a b -> if a == b then a else '*') x key) s
