IDENTIFICATION DIVISION.
PROGRAM-ID. NUMBERS.
AUTHOR. TEEBEE.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
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.