import Control.Applicative ((<$>))

main :: IO ()
main = do
  solve <$> (words <$> getLine) >>= putStrLn

solve :: [String] -> String
solve [ss, st, su] =
  let t = read st :: Int
      u = read su :: Int
  in map snd . filter (\(i,_) -> i /= t && i /= u) . zip [0..] $ ss