import Data.Char

main :: IO ()
main = do
    [sa,pa,xa] <- words <$> getLine
    [sb,pb,xb] <- words <$> getLine
    let winner = case solve (map digitToInt pa) (map digitToInt pb) of
                        First -> sa
                        Second -> sb
                        Draw -> "-1"
    putStrLn winner

data Winner = First | Second | Draw deriving (Show, Read, Eq)

solve :: [Int] -> [Int] -> Winner
solve [] [] = Draw
solve l r | length l > length r = First
          | length l < length r = Second
          | l == r = Draw
          | l > r = First
          | otherwise = Second