main = do
  dum <- getLine
  s <- getLine
  kIn <- getLine
  let 
    k = head $ map read $ words kIn :: Int
    at n ls
      | ls == [] = '-'
      | n == 1 = head ls
      | otherwise = at (n-1) (tail ls)
    key = at k s
    repl key str ret
      | str == [] = reverse ret
      | head str == key = repl key (tail str) (key:ret)
      | otherwise = repl key (tail str) ('*':ret)
    in
    putStrLn $ repl key s ""
