import qualified Data.ByteString.Char8 as BS
import Data.List
import Data.Maybe

getString = BS.unpack <$> BS.getLine

main = do
  s <- getString
  let ss = ["Sunny", "Cloudy", "Rainy"]
  let index = fromJust (findIndex (== s) ss)
  putStrLn $ ss !! ((index + 1) `mod` 3)
