module Problem71 where

main :: IO ()
main =
    print
        . fst
        . foldl1
            (\(n, d) (n', d') -> if n' * d < n * d' -- n / d > n' / d'
                then (n, d)
                else (n', d')
            )
        $ [ (floor (fromIntegral (3 * k) / 7.0) - 1, k) | k <- [1 .. 1000000] ]
