        IDENTIFICATION  DIVISION.
        PROGRAM-ID.      christmas.
        PROCEDURE       DIVISION.
        77  NUM         PIC 9(2).
        MAIN.
        ACCEPT  NUM     FROM CONSOLE.
        DISPLAY "Christmas"  UPON CONSOLE.

        ADD -25     TO NUM.
        PERFORM UNTIL      NUM = 0
            DISPLAY    " Eve"
            ADD 1   TO NUM
        END-PERFORM.
        STOP RUN.
