       *> AtCoder My Practice
       *> author: Leonardone @ NEETSDKASU
       *>
       IDENTIFICATION DIVISION.
       PROGRAM-ID. Answer.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       REPOSITORY.
              FUNCTION ALL INTRINSIC.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
              01 For-Inputing-Values.
                     05 file-access PIC X USAGE COMP-X VALUE IS 1.
                     05 file-handle PIC X(4) USAGE COMP-X.
                     05 file-offset PIC X(8) USAGE COMP-X VALUE IS 0.
                     05 file-nbytes PIC X(4) USAGE COMP-X VALUE IS 100.
                     05 file-buffer PIC X(100).
              01 Input-Values.
                     05 a      BINARY-SHORT.
                     05 b      BINARY-SHORT.
              01 Calc-Values.
                     05 disp   PIC X(5).
       PROCEDURE DIVISION.
       AnswerMain SECTION.
       000-Start.
       
              CALL "CBL_OPEN_FILE"
                     USING "/dev/stdin" file-access 0 0 file-handle.
              CALL "CBL_READ_FILE"
                     USING file-handle file-offset
                            file-nbytes 0 file-buffer.
              CALL "CBL_CLOSE_FILE" USING file-handle.      
              UNSTRING file-buffer DELIMITED BY SPACE INTO a b
              
              MOVE MOD(a,2) TO a.
              MOVE MOD(b,2) TO b.
              
              MOVE "Odd" TO disp.
              IF a = 0 OR b = 0 THEN
                     MOVE "Even" TO disp
              END-IF.

              DISPLAY TRIM(disp).
       END PROGRAM Answer.
