import Control.Applicative
import Control.Monad
import Data.Functor
import Data.List

readInts :: IO [Int]
readInts = map read . words <$> getLine

solve a s
  | a>=3200 = s
  | otherwise = "red"

main = solve <$> readLn <*> getLine >>= putStrLn