import Control.Monad

readInteger :: String -> Integer
readInteger = read
    
main = do
  [[s, a, _], [t, b, _]] <- replicateM 2 (liftM words getLine)
  putStrLn $ case () of
       _
           | a == b -> "-1"
           | readInteger a > readInteger b-> s
           | otherwise -> t