import Data.List
import Data.Char
import Data.Maybe
import qualified Data.ByteString.Char8 as BS8

main :: IO ()
main = do
    a <- fst . fromJust . BS8.readInteger <$> BS8.getLine
    s <- getLine

    putStrLn $ if a >= 3200
        then s
        else "red"
