toInt :: (String -> Int)
toInt x = read x ::Int

main :: IO ()
main = do
  n <- getLine
  s <- getLine
  k <- getLine
  let put_str = (s !! ((toInt k)-1))
      after = map (\x -> if x /= put_str then '*' else x) s
  putStrLn after
