import Data.Char

main = do
 sa <- getLine
 sb <- getLine
 sc <- getLine
 putStrLn (game "A" sa sb sc)

game "A" [] _ _ = "A"
game "B" _ [] _ = "B"
game "C" _ _ [] = "C"
game "A" (c:sa) sb sc = game [toUpper c] sa sb sc
game "B" sa (c:sb) sc = game [toUpper c] sa sb sc
game "C" sa sb (c:sc) = game [toUpper c] sa sb sc