import Control.Applicative

solve :: Int -> String -> String
solve n s
    | n < 3200 = "red"
    | otherwise = s

main :: IO ()
main = do
    a <- read <$> getLine
    s <- getLine
    putStrLn $ solve a s
