rolloutTree :: GameState s a => Tree s a -> StdGen -> ([Tree s a], Outcome, StdGen)
helper2 t@(Tree state action noVisits score children) gen acc = if ((outcome state) == Ongoing)
                                                                then (helper2 (children !! (mod (fst (next gen)) (length children))) (snd (next gen)) (t : acc))
                                                                else (acc, (outcome state), gen)
rolloutTree t@(Tree state action noVisits score children) gen = helper2 t gen []