program atcoder
    implicit none
    integer :: x
    character(len=4) :: c = ' Eve';
    read *,x
    write(*,'(a)')'Christmas'//repeat(c,25-x)
    stop 
!----------------------functions--------------------------
contains

end program atcoder