import Control.Applicative

solve c sa sb sc
  | c == 'a' = if null sa then "A" else solve (head sa) (tail sa) sb sc
  | c == 'b' = if null sb then "B" else solve (head sb) sa (tail sb) sc
  | c == 'c' = if null sc then "C" else solve (head sc) sa sb (tail sc)
  | otherwise = undefined

main = do
  sa <- getLine :: IO String
  sb <- getLine :: IO String
  sc <- getLine :: IO String
  putStrLn $ solve 'a' sa sb sc
