main = do
	[sa,pa,_] <- getLine >>= return . words
	[sb,pb,_] <- getLine >>= return . words
	let pa' = read pa :: Integer
	let pb' = read pb :: Integer
	putStrLn $
		if pa' < pb'
			then sb
			else if pa' > pb'
				then sa
				else "-1"