# Main program file

PRINT X

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

# CONST T = 3
INCREASE T
INCREASE T
INCREASE T

REPEAT Q 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 A
            CLEAR B
            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

    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 A
                    CLEAR B
                    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
        )

        REPEAT D TIMES (
            # *3+1
            REPEAT T TIMES (
                REPEAT X TIMES (
                    INCREASE Z
                )
            )
            CLEAR X
            REPEAT Z TIMES (
                INCREASE X
            )
            INCREASE X
            CLEAR Z
            PRINT X
        )
    )
    CLEAR D
    CLEAR E
    CLEAR R
)