import qualified Data.Text as T
import qualified Data.Text.IO as T
import qualified Data.Text.Read as T

main :: IO ()
main = do
  s <- T.getLine :: IO T.Text
  let
    t | s == T.pack "Sunny" = "Cloudy"
      | s == T.pack "Cloudy" = "Rainy"
      | otherwise = "Sunny"
  T.putStrLn t
