import           Data.List                      ( findIndex )
wheatherList = cycle ["Sunny", "Cloudy", "Rainy"]

main = getLine >>= \s -> case findIndex (== s) wheatherList of
  Just i -> return (wheatherList !! (i + 1)) >>= putStrLn
