IDENTIFICATION DIVISION.
       PROGRAM-ID. NUMBERS.
       AUTHOR. TEEBEE.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       OBJECT-COMPUTER. IBM-370.
       SOURCE-COMPUTER. IBM-370.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 THE-NUMBERS.
            10 FILLER USAGE IS COMP-1 VALUE -.24093455+04.
            10 FILLER USAGE IS COMP-1 VALUE -.55439209-47.
            10 FILLER USAGE IS COMP-1 VALUE  .44591240+13.
            10 FILLER USAGE IS COMP-1 VALUE -.22818252-71.
            10 FILLER USAGE IS COMP-1 VALUE -.48936378-36.
            10 FILLER USAGE IS COMP-1 VALUE  .53763199+00.
            10 FILLER USAGE IS COMP-1 VALUE  .23808258+74.
            10 FILLER USAGE IS COMP-1 VALUE -.13901026-68.
            10 FILLER USAGE IS COMP-1 VALUE -.54452280-53.
            10 FILLER USAGE IS COMP-1 VALUE -.33187504+05.
            10 FILLER USAGE IS COMP-1 VALUE  .84218729+00.
            10 FILLER USAGE IS COMP-1 VALUE -.18465549-73.
            10 FILLER USAGE IS COMP-1 VALUE -.16025044-50.
        01 THE-ANSWER REDEFINES THE-NUMBERS PIC X(52).
        PROCEDURE DIVISION.
            DISPLAY THE-ANSWER
            GOBACK.
        END PROGRAM NUMBERS.