program christmas_eve_eve_eve
  implicit none
  integer :: d
  read(*,*) d
  write(*,'(a)',advance='no') "Christmas"
  d = 25-d
  do while (d > 0)
    write(*,'(a)',advance='no') " Eve"
    d = d-1
  end do
  write(*,*)
end program christmas_eve_eve_eve