main :: IO ()
main = do
  str <- getLine
  putStrLn $ mySucc str
  where
    mySucc s = snd $ head $ filter (\(x, _) -> x == s) $ zip list ((tail list) ++ (take 1 list))
      where list = ["Sunny", "Cloudy", "Rainy"]
