Scanf.scanf "%s %s %s" (fun s1 s2 s3 ->
    let r = List.fold_left (fun acc v ->
        if v = "RED" then acc + 1 else acc) 0 [ s1; s2; s3 ]
    in
    print_endline @@ if r >= 2 then "RED" else "BLUE"
)