main = do
    print $ biggestTuple ( map (\xs -> (length xs, xs !! 0))  $ map collatzR [999999, 999998..1]) (0, 0)
    return ()
main = do
    print $ biggestTuple ( map (\xs -> (length xs, xs !! 0))  $ map collatzR [999999, 999998..1]) (0, 0)
    return ()
main = do
    print $ biggestTuple ( map (\xs -> (length xs, xs !! 0))  $ map collatzR [999999, 999998..1]) (0, 0)
    return ()