program main
  implicit none
  character(len=10) :: S


  read(*,*) S

  if (S == "Sunny") then
     write(*,'(a)') "Cloudy"
  else if (S == "Cloudy") then
     write(*,'(a)') 'Rainy'
  else if (S == "Rainy") then
     write(*,'(a)') "Sunny"
  end if

  stop

end program main
