let get_results state = List.fold_right (fun (result, other_results) res -> result :: other_results @ res) state.tests_passed []