import Data.Char

winner _ [] _ _ = 'a'
winner _ _ [] _ = 'b'
winner _ _ _ [] = 'c'
winner n (a:as) (b:bs) (c:cs)
    | n == 'a' = winner a as (b:bs) (c:cs)
    | n == 'b' = winner a (a:as) bs (c:cs)
    | n == 'c' = winner a (a:as) (b:bs) cs

main = do
    sa <- getLine
    sb <- getLine
    sc <- getLine
    putStrLn [toUpper $ winner (head sa) sa sb sc]
