nextWeather :: (String -> String)
nextWeather s = case s of
    "Sunny"  -> "Cloudy"
    "Cloudy" -> "Rainy"
    "Rainy"  -> "Sunny"
    _        -> "none"

main :: IO ()
main = do
    s <- getLine
    putStrLn $ nextWeather s
