convertToOutputTree :: [Tree] -> IO [OutputTree]
convertToOutputTree trees = evalRandIO $ mapM toOutputTree trees
convertToOutputTree :: [Tree] -> IO [OutputTree]
convertToOutputTree trees = evalRandIO $ mapM toOutputTree trees
convertToOutputTree trees = evalRandIO $ mapM toOutputTree trees