program sample
	integer ::a
    read(*,*) a
    if(a==22) then
    	write(*,*) 'Christmas Eve Eve Eve'
    else if(a==23) then
    	write(*,*) 'Christmas Eve Eve'
    else if(a==24) then
    	write(*,*) 'Christmas Eve'
    else
    	write(*,*) 'Christmas'
    end if
    stop
end program sample