main :: IO ()
main = interact $ solve . words

solve :: [String] -> String
solve [s, t, u] = map snd $ filter (\(n, c) -> n /= i && n /= j) $ zip [0..50] s
    where
        i = (read :: String -> Int) t
        j = (read :: String -> Int) u