ch :: Char -> String -> String
ch y [] = []
ch y (x:xs) = if x == y then x:(ch y xs) else '*':(ch y xs)

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