{-# LANGUAGE BangPatterns, MultiWayIf #-}

import Control.Applicative
import Control.Monad
import Data.List
import Debug.Trace (traceShow)
import qualified Data.ByteString.Char8 as B

import Data.Ratio
import Text.Printf

readi b | Just (n, _) <- B.readInt b = n

main :: IO ()
main = do
    n1 <- readLn :: IO Int
    (a:as) <- fmap readi . B.words <$> B.getLine
    n2 <- readLn :: IO Int
    bs <- fmap readi . B.words <$> B.getLine
    let x = a % product as
    let y = foldr (/) (1 % 1) (fmap fromIntegral bs)
    let ans = x / y
    printf "%d %d\n" (numerator ans) (denominator ans)