buildTreeAndGetData :: [Int] -> R.StdGen -> (Int, Int)
buildTreeAndGetData arr rng = (h, c)
    where
        (seed, rng') = R.next rng
        tr = fromList seed arr
        h = height tr
        c = member tr $ (fst $ R.next rng) `mod` 10


printData :: [Int] -> IO()
printData arr = do
    rng <- R.newStdGen
    let d@(h, c) = buildTreeAndGetData arr rng
    print d


runBenchmark :: Int -> IO()
runBenchmark nodeCount = do
    printData [1..nodeCount]


main = mapM_ runBenchmark [1000, 2000..10000]