       IDENTIFICATION DIVISION.
       PROGRAM-ID. ATCODER.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 indata PIC X(300).
       01 s PIC X(110).
       01 t PIC X(110).
       PROCEDURE DIVISION.
        ACCEPT indata

        UNSTRING indata DELIMITED BY SPACE INTO s t.
        STRING FUNCTION TRIM(t) DELIMITED BY SIZE
               " " DELIMITED by SIZE
               FUNCTION TRIM(s) DELIMITED BY SIZE
               INTO indata
        END-STRING

        DISPLAY FUNCTION TRIM(indata)

       STOP RUN.
