solve :: String -> Int -> String
solve s k = map (\x -> if x == c then c else '*') s
  where
    c = s !! (k - 1)

main :: IO ()
main = do
  n <- readLn :: IO Int
  s <- getLine
  k <- readLn :: IO Int
  putStrLn $ solve s k