program name
    implicit none
    integer(4):: d

    read*, d
    if (d == 25) then
        print*, 'Christmas'
    else if (d == 24) then
        print*, 'Christmas Eve'
    else if (d == 23) then
        print*, 'Christmas Eve Eve'
    else if (d == 22) then
        print*, 'Christmas Eve Eve Eve'
    end if
end program name