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

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