open System let No516 () = let rec cnt (i:int) (r:int) = if i < 3 then if String.Compare("RED", Console.ReadLine(), false) = 0 then cnt (i + 1) (r + 1) else cnt (i + 1) r else r if (cnt 0 0) >= 2 then printfn "RED" else printfn "BLUE" () No516 ()