Problem:
Score: 100 points

Problem Statement

The weather in Takahashi's town changes day by day, in the following cycle: Sunny, Cloudy, Rainy, Sunny, Cloudy, Rainy, ...

Given is a string S representing the weather in the town today. Predict the weather tomorrow.

Constraints

S is Sunny, Cloudy, or Rainy.

Input

Input is given from Standard Input in the following format:

S

Output

Print a string representing the expected weather tomorrow, in the same format in which input is given.

Sample Input 1

Sunny

Sample Output 1

Cloudy

In Takahashi's town, a sunny day is followed by a cloudy day.

Sample Input 2

Rainy

Sample Output 2

Sunny

Solution in Haskell (GHC 7.10.3) (judge verdict: Accepted)

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