main :: IO ()
main = do
    -- Define the search space
    let space = [(a, b) | a <- [1..99], b <- [1..99]]
    -- Compute the four fractions of interest
    let resultingFractions = filter (uncurry checkFraction) space
    -- Compute product
    let fractProduct = product $ map (uncurry (%)) resultingFractions
    -- Print the denominator
    print $ denominator fractProduct
main :: IO ()
main = do
    -- Define the search space
    let space = [(a, b) | a <- [1..99], b <- [1..99]]
    -- Compute the four fractions of interest
    let resultingFractions = filter (uncurry checkFraction) space
    -- Compute product
    let fractProduct = product $ map (uncurry (%)) resultingFractions
    -- Print the denominator
    print $ denominator fractProduct
main = do
    -- Define the search space
    let space = [(a, b) | a <- [1..99], b <- [1..99]]
    -- Compute the four fractions of interest
    let resultingFractions = filter (uncurry checkFraction) space
    -- Compute product
    let fractProduct = product $ map (uncurry (%)) resultingFractions
    -- Print the denominator
    print $ denominator fractProduct