import Data.List

replaceAt :: Int -> a -> [a] -> [a]
replaceAt n a xs = [if i==n then a else xs!!i|i<-[0..length xs-1]]

main = do
	[s, t, u] <- getLine >>= return . words
	let st = replaceAt (read t) ' ' s
	let su = replaceAt (read u) ' ' s
	putStrLn $ concat $ words $ zipWith (\x y -> if x==y then x else ' ') st su