main :: IO()
main = do
  s <- getLine
  if validate s then
    putStrLn . show . nextDay . read $ s
  else
    error "error"

validate :: String -> Bool
validate "Sunny" = True
validate "Cloudy" = True
validate "Rainy" = True
validate _ = False

---------------------------------------------
data Weather = Sunny | Cloudy | Rainy
  deriving (Read, Show)



data Today = Today {
  weth :: Weather,
  temp :: Float,
  humidity :: Float
}

nextDay :: Weather -> Weather
nextDay Sunny = Cloudy
nextDay Cloudy = Rainy
nextDay Rainy = Sunny
