main = do
    n <- getLine
    -- [a,b] <- map read . words <$> getLine
    putStrLn . show $ solve n

solve :: String -> String
solve n = case n of
            "Sunny" -> "Cloudy"
            "Cloudy" -> "Rainy"
            "Rainy" -> "Sunny"
