IDENTIFICATION DIVISION.
        PROGRAM-ID. hello.
        ENVIRONMENT DIVISION.
        INPUT-OUTPUT SECTION.
        FILE-CONTROL.
        SELECT SYSIN ASSIGN TO KEYBOARD ORGANIZATION LINE SEQUENTIAL.
        DATA DIVISION.         
        FILE SECTION.
        FD SYSIN.
        01 ln PIC X(255).
       	        88 EOF VALUE HIGH-VALUES.
        WORKING-STORAGE SECTION.
        01 WS-WORK1 PIC X(255) VALUE ALL "*".
        01 WS-WORK3 PIC X(255) VALUE ALL " ".         
        01 WS-WORK2 PIC S9(10) USAGE COMP.
        01 WS-WORK4 PIC S9(10) USAGE COMP.
        01 I PIC 9(10).
        PROCEDURE DIVISION.
        OPEN INPUT SYSIN
        READ SYSIN
        AT END SET EOF TO TRUE
        END-READ
        CLOSE SYSIN.   
        COMPUTE WS-WORK2 = FUNCTION NUMVAL (ln) - 1.
        PERFORM VARYING I FROM 0 BY 1 UNTIL I = WS-WORK2 - 1
        DISPLAY WS-WORK3(1: WS-WORK2 - 1 - I) WS-WORK1(1: 2 * I + 1)
        END-PERFORM.   
        DISPLAY WS-WORK1(1:2*I + 1)    
        IF WS-WORK2 < 5 THEN 
                   DISPLAY "COBOL"
        ELSE 
                DISPLAY WS-WORK3(1: WS-WORK2 - 3)"COBOL"    
        END-IF.
        STOP RUN.