import Data.Ratio
import Data.List
import Text.Printf

main = do
  n1 <- readLn :: IO Integer
  as <- map read . words <$> getLine :: IO [Integer]
  n2 <- readLn :: IO Integer
  bs <- map read . words <$> getLine :: IO [Integer]

  let r = foldl1 (/) (map (%1) as) / foldl1 (\x y -> y/x) (map (%1) (reverse bs))

  printf "%d %d\n" (numerator r) (denominator r)