Lukujono

INCREASE R

PRINT X

CLEAR F INCREASE F
CLEAR G
CLEAR H

REPEAT X TIMES (
    REPEAT F TIMES (
        CLEAR F
        INCREASE G
    )
)

REPEAT G TIMES (
    INCREASE T
    INCREASE T
    INCREASE T
    INCREASE T
    INCREASE T
    INCREASE T
    INCREASE T
    INCREASE T
    INCREASE T
    INCREASE T
    INCREASE T
    INCREASE T
    INCREASE T
)

REPEAT T TIMES ( REPEAT T TIMES ( REPEAT R TIMES (

    CLEAR A INCREASE A  # A = 1
    CLEAR B             # B = 0
    CLEAR C             # C = 0
    CLEAR D             # D = 0
    
    REPEAT X TIMES (
        REPEAT A TIMES (
            CLEAR A
            INCREASE C
            INCREASE D
        )

        REPEAT B TIMES (
            CLEAR B
            INCREASE A
        )

        REPEAT C TIMES (
            CLEAR C

            INCREASE B
        )
    )

    # A = 1 when x is even
    REPEAT A TIMES (
        CLEAR A
        CLEAR X

        CLEAR F INCREASE F
        CLEAR G
        CLEAR H INCREASE H

        REPEAT D TIMES (
            REPEAT G TIMES (
                CLEAR G
                CLEAR H
            )

            INCREASE X
            
            REPEAT F TIMES (
                CLEAR F
                INCREASE G
            )
        )

        REPEAT H TIMES (
            CLEAR R
            CLEAR T
        )

        PRINT X
    )

    # B = 1 when x is even
    REPEAT B TIMES (
        CLEAR E         # E = 0

        REPEAT X TIMES (
            INCREASE E
            INCREASE E
            INCREASE E
        )

        INCREASE E

        PRINT E
        
        REPEAT D TIMES (
            INCREASE X
        )

        PRINT X

        INCREASE A
    )

) ) )

Test 1 (public)

Verdict: ACCEPTED