main :: IO ()
main = interact $ (\x -> if x >= 11 then "BLUE" else "RED") . sum . map length .  words