answer :: Int
answer = finalDenum `div` gcd finalDenum finalNum
  where
    (nums, denums) = unzip [(i, j) | j <- [2..99], i <- [1..j-1], isCurious i j]
    finalNum = product nums
    finalDenum = product denums
answer :: Int
answer = finalDenum `div` gcd finalDenum finalNum
  where
    (nums, denums) = unzip [(i, j) | j <- [2..99], i <- [1..j-1], isCurious i j]
    finalNum = product nums
    finalDenum = product denums
answer = finalDenum `div` gcd finalDenum finalNum
  where
    (nums, denums) = unzip [(i, j) | j <- [2..99], i <- [1..j-1], isCurious i j]
    finalNum = product nums
    finalDenum = product denums