program yukicoder_2350 use, intrinsic :: iso_fortran_env implicit none character(len=6), parameter :: month_to_name(12) = ["winter", "winter", & "spring", "spring", "spring", & "summer", "summer", "summer", & "fall ", "fall ", "fall ", & "winter" ] integer(int32) :: x read(input_unit, *) x write(output_unit, '(a)') trim(month_to_name(x)) end program yukicoder_2350