IDENTIFICATION DIVISION.
PROGRAM-ID. XXX.

*>
*> See https://theweeklychallenge.org/blog/perl-weekly-challenge-153
*>

*>
*> Run as: cobc -xF -o ch-1.o ch-1.cb; ./ch-1.o
*>

PROCEDURE DIVISION.
    DISPLAY "1 2 4 10 34 154 874 5914 46234 409114".
    STOP RUN.