rolloutTree t@(Tree state action noVisits score children) gen = if ((outcome state) == Ongoing)
                                                                then (rolloutTree (children !! (mod (fst (next gen)) (length children))) (snd (next gen))) : t : []
                                                                else (t : [], (outcome state), gen)