main = do
    s <- map head . lines <$> getContents
    putStrLn $ if (length $ filter (== 'R') s) >= 2 then "RED" else "BLUE"