main :: IO()
main = do
    getLine
    s <- getLine
    k <- readLn
    putStrLn $ rePut s (s !! (k - 1))
    
rePut :: String -> Char -> String
rePut str moji
    | str == []					= []
    | head str /= moji			= "*" ++ rePut (tail str) moji
    | otherwise					= (head str):rePut (tail str) moji