INCREASE R

PRINT X

CLEAR F INCREASE F
CLEAR G
CLEAR H

REPEAT X TIMES (
    REPEAT G TIMES (
        CLEAR G
        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 F TIMES (
        CLEAR F
        INCREASE G
    )
)

INCREASE I

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      # F = 1
        CLEAR G                 # G = 0
        CLEAR H INCREASE H      # H = 1

        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

        # Kun D on pariton, tuleva X on parillinen
        PRINT E

        CLEAR A INCREASE A  # A = 1
        CLEAR B             # B = 0
        CLEAR C             # C = 0

        # PRINT 0
        # PRINT D

        REPEAT D TIMES (
            INCREASE X
        )

        PRINT X


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

            REPEAT B TIMES (
                CLEAR B
                INCREASE A
                INCREASE D
            )

            REPEAT C TIMES (
                CLEAR C
                INCREASE B
            )
        )

        # PRINT A
        # PRINT B
        # PRINT D

        REPEAT B TIMES (
            CLEAR X
            REPEAT D TIMES (
                INCREASE X
            )
            
            PRINT X
        )

    )

) ) )