# Main program file

PRINT X
 
# Q is a sufficiently large integer
INCREASE Q
REPEAT X TIMES (
    INCREASE Q
)
REPEAT X TIMES (
    INCREASE Q
)
REPEAT X TIMES (
    INCREASE Q
)


INCREASE R
REPEAT Q TIMES (
    REPEAT R TIMES (
        # D: 1 IF % 2 == 0 ELSE 0
        # E: 0 IF % 2 == 0 ELSE 1
        # IF 0 D AND E = 0 !!
        INCREASE A
        REPEAT X TIMES (
            REPEAT C TIMES (
                CLEAR C
                INCREASE A
                INCREASE D
                CLEAR E
            )
            REPEAT B TIMES (
                CLEAR B
                INCREASE C
                CLEAR D
                INCREASE E
            )
            REPEAT A TIMES (
                CLEAR A
                INCREASE B
            )
        )
        CLEAR A
        CLEAR B
        CLEAR C

        CLEAR R
        REPEAT D TIMES (
            INCREASE R
        )
        REPEAT E TIMES (
            INCREASE R
        )
    )
    REPEAT R TIMES (
        REPEAT E TIMES (
            # /2
            INCREASE X
            INCREASE A
            REPEAT X TIMES (
                REPEAT C TIMES (
                    INCREASE Z
                    CLEAR C
                    INCREASE A
                )
                REPEAT B TIMES (
                    CLEAR B
                    INCREASE C
                )
                REPEAT A TIMES (
                    CLEAR A
                    INCREASE B
                )
            )
            CLEAR A
            CLEAR B
            CLEAR C
 
            CLEAR X
            REPEAT Z TIMES (
                INCREASE X
            )
            CLEAR Z
            PRINT X
            CLEAR E
        )
 
        REPEAT D TIMES (
            # *3+1
            REPEAT X TIMES (
                INCREASE Z
                INCREASE X
            )
            REPEAT Z TIMES (
                INCREASE X
            )
            INCREASE X
            CLEAR Z
            PRINT X
            CLEAR D
        )
    )
)