main :: IO ()
main = do
    n <- length . filter (== "RED") . lines <$> getContents
    putStrLn $ if n >= 2 then "RED" else "BLUE"