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" )