IDENTIFICATION DIVISION.
PROGRAM-ID. 154B.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INP  PIC X(100).
01 S    PIC X(100).
01 CNT  PIC 9(3).
01 I    PIC 9(3).
*>
PROCEDURE DIVISION.
  ACCEPT INP.
  UNSTRING INP DELIMITED BY ' '
      INTO S   COUNT CNT.
  MOVE ALL 'x' TO S(1:CNT).
  DISPLAY S(1:CNT).
*>
  STOP RUN.
