let best list =
    let best_score = ("", 0)
    let rec find_best l =
        match l with
        | (name, score)::xs when score > best_score -> best_score = (name, score)
                                                       find_best xs
        | (_, _)::xs -> find_best xs
        | [] -> []
    best_score;;