PRINT X

# O = 10, L = 200, V = X
INCREASE O INCREASE O INCREASE O INCREASE O INCREASE O INCREASE O INCREASE O INCREASE O INCREASE O INCREASE O


INCREASE A
REPEAT X TIMES (
    REPEAT B TIMES (
        CLEAR A
        CLEAR B
        CLEAR L INCREASE L
    )
    REPEAT A TIMES (
        INCREASE B
    )
)

REPEAT L TIMES (
    REPEAT O TIMES (
        REPEAT O TIMES (
            INCREASE L
            INCREASE L
        )
    )
)



REPEAT X TIMES ( INCREASE V )

# =========================================== GET DIGITS ===================================================== #

CLEAR B
REPEAT X TIMES (

    CLEAR A
    INCREASE A

    REPEAT J TIMES (
        CLEAR J
        CLEAR A
        INCREASE P
        CLEAR Y
    )
    REPEAT I TIMES (
        CLEAR I
        CLEAR A
        INCREASE J
        INCREASE Y
    )
    REPEAT H TIMES (
        CLEAR H
        CLEAR A
        INCREASE I
        INCREASE Y
    )
    REPEAT G TIMES (
        CLEAR G
        CLEAR A
        INCREASE H
        INCREASE Y
    )
    REPEAT F TIMES (
        CLEAR F
        CLEAR A
        INCREASE G
        INCREASE Y
    )
    REPEAT E TIMES (
        CLEAR E
        CLEAR A
        INCREASE F
        INCREASE Y
    )
    REPEAT D TIMES (
        CLEAR D
        CLEAR A
        INCREASE E
        INCREASE Y
    )
    REPEAT C TIMES (
        CLEAR C
        CLEAR A
        INCREASE D
        INCREASE Y
    )
    REPEAT B TIMES (
        CLEAR B
        CLEAR A
        INCREASE C
        INCREASE Y
    )
    REPEAT A TIMES (
        INCREASE B
        INCREASE Y
    )

)

CLEAR X
REPEAT P TIMES ( INCREASE X )

CLEAR P CLEAR B CLEAR C CLEAR D CLEAR E CLEAR F CLEAR G CLEAR H CLEAR I CLEAR J
REPEAT X TIMES (

    CLEAR A
    INCREASE A

    REPEAT J TIMES (
        CLEAR J
        CLEAR A
        INCREASE P
        CLEAR K
    )
    REPEAT I TIMES (
        CLEAR I
        CLEAR A
        INCREASE J
        INCREASE K
    )
    REPEAT H TIMES (
        CLEAR H
        CLEAR A
        INCREASE I
        INCREASE K
    )
    REPEAT G TIMES (
        CLEAR G
        CLEAR A
        INCREASE H
        INCREASE K
    )
    REPEAT F TIMES (
        CLEAR F
        CLEAR A
        INCREASE G
        INCREASE K
    )
    REPEAT E TIMES (
        CLEAR E
        CLEAR A
        INCREASE F
        INCREASE K
    )
    REPEAT D TIMES (
        CLEAR D
        CLEAR A
        INCREASE E
        INCREASE K
    )
    REPEAT C TIMES (
        CLEAR C
        CLEAR A
        INCREASE D
        INCREASE K
    )
    REPEAT B TIMES (
        CLEAR B
        CLEAR A
        INCREASE C
        INCREASE K
    )
    REPEAT A TIMES (
        INCREASE B
        INCREASE K
    )

)

CLEAR X
REPEAT P TIMES ( INCREASE X )

CLEAR P CLEAR B CLEAR C CLEAR D CLEAR E CLEAR F CLEAR G CLEAR H CLEAR I CLEAR J
REPEAT X TIMES (

    CLEAR A
    INCREASE A

    REPEAT J TIMES (
        CLEAR J
        CLEAR A
        INCREASE P
        CLEAR S
    )
    REPEAT I TIMES (
        CLEAR I
        CLEAR A
        INCREASE J
        INCREASE S
    )
    REPEAT H TIMES (
        CLEAR H
        CLEAR A
        INCREASE I
        INCREASE S
    )
    REPEAT G TIMES (
        CLEAR G
        CLEAR A
        INCREASE H
        INCREASE S
    )
    REPEAT F TIMES (
        CLEAR F
        CLEAR A
        INCREASE G
        INCREASE S
    )
    REPEAT E TIMES (
        CLEAR E
        CLEAR A
        INCREASE F
        INCREASE S
    )
    REPEAT D TIMES (
        CLEAR D
        CLEAR A
        INCREASE E
        INCREASE S
    )
    REPEAT C TIMES (
        CLEAR C
        CLEAR A
        INCREASE D
        INCREASE S
    )
    REPEAT B TIMES (
        CLEAR B
        CLEAR A
        INCREASE C
        INCREASE S
    )
    REPEAT A TIMES (
        INCREASE B
        INCREASE S
    )

)

CLEAR X
REPEAT P TIMES ( INCREASE X )

CLEAR P CLEAR B CLEAR C CLEAR D CLEAR E CLEAR F CLEAR G CLEAR H CLEAR I CLEAR J
REPEAT X TIMES (

    CLEAR A
    INCREASE A

    REPEAT J TIMES (
        CLEAR J
        CLEAR A
        INCREASE P
        CLEAR T
    )
    REPEAT I TIMES (
        CLEAR I
        CLEAR A
        INCREASE J
        INCREASE T
    )
    REPEAT H TIMES (
        CLEAR H
        CLEAR A
        INCREASE I
        INCREASE T
    )
    REPEAT G TIMES (
        CLEAR G
        CLEAR A
        INCREASE H
        INCREASE T
    )
    REPEAT F TIMES (
        CLEAR F
        CLEAR A
        INCREASE G
        INCREASE T
    )
    REPEAT E TIMES (
        CLEAR E
        CLEAR A
        INCREASE F
        INCREASE T
    )
    REPEAT D TIMES (
        CLEAR D
        CLEAR A
        INCREASE E
        INCREASE T
    )
    REPEAT C TIMES (
        CLEAR C
        CLEAR A
        INCREASE D
        INCREASE T
    )
    REPEAT B TIMES (
        CLEAR B
        CLEAR A
        INCREASE C
        INCREASE T
    )
    REPEAT A TIMES (
        INCREASE B
        INCREASE T
    )

)

CLEAR X
REPEAT P TIMES ( INCREASE X )

CLEAR P CLEAR B CLEAR C CLEAR D CLEAR E CLEAR F CLEAR G CLEAR H CLEAR I CLEAR J
REPEAT X TIMES (

    CLEAR A
    INCREASE A

    REPEAT J TIMES (
        CLEAR J
        CLEAR A
        INCREASE P
        CLEAR U
    )
    REPEAT I TIMES (
        CLEAR I
        CLEAR A
        INCREASE J
        INCREASE U
    )
    REPEAT H TIMES (
        CLEAR H
        CLEAR A
        INCREASE I
        INCREASE U
    )
    REPEAT G TIMES (
        CLEAR G
        CLEAR A
        INCREASE H
        INCREASE U
    )
    REPEAT F TIMES (
        CLEAR F
        CLEAR A
        INCREASE G
        INCREASE U
    )
    REPEAT E TIMES (
        CLEAR E
        CLEAR A
        INCREASE F
        INCREASE U
    )
    REPEAT D TIMES (
        CLEAR D
        CLEAR A
        INCREASE E
        INCREASE U
    )
    REPEAT C TIMES (
        CLEAR C
        CLEAR A
        INCREASE D
        INCREASE U
    )
    REPEAT B TIMES (
        CLEAR B
        CLEAR A
        INCREASE C
        INCREASE U
    )
    REPEAT A TIMES (
        INCREASE B
        INCREASE U
    )

)

CLEAR X
REPEAT P TIMES ( INCREASE X )

CLEAR P CLEAR B CLEAR C CLEAR D CLEAR E CLEAR F CLEAR G CLEAR H CLEAR I CLEAR J
REPEAT X TIMES (

    CLEAR A
    INCREASE A

    REPEAT J TIMES (
        CLEAR J
        CLEAR A
        INCREASE P
        CLEAR N
    )
    REPEAT I TIMES (
        CLEAR I
        CLEAR A
        INCREASE J
        INCREASE N
    )
    REPEAT H TIMES (
        CLEAR H
        CLEAR A
        INCREASE I
        INCREASE N
    )
    REPEAT G TIMES (
        CLEAR G
        CLEAR A
        INCREASE H
        INCREASE N
    )
    REPEAT F TIMES (
        CLEAR F
        CLEAR A
        INCREASE G
        INCREASE N
    )
    REPEAT E TIMES (
        CLEAR E
        CLEAR A
        INCREASE F
        INCREASE N
    )
    REPEAT D TIMES (
        CLEAR D
        CLEAR A
        INCREASE E
        INCREASE N
    )
    REPEAT C TIMES (
        CLEAR C
        CLEAR A
        INCREASE D
        INCREASE N
    )
    REPEAT B TIMES (
        CLEAR B
        CLEAR A
        INCREASE C
        INCREASE N
    )
    REPEAT A TIMES (
        INCREASE B
        INCREASE N
    )

)


# =============================== #

CLEAR X
REPEAT V TIMES ( INCREASE X )


# =========================================== LOOP ===================================================== #


INCREASE R
REPEAT L TIMES (

    REPEAT R TIMES (

        # V = pariton

        CLEAR P CLEAR V
        REPEAT Y TIMES (
            CLEAR A INCREASE A
            REPEAT V TIMES (
                CLEAR A
                CLEAR V
                INCREASE P
            )
            REPEAT A TIMES (
                INCREASE V
            )
        )


        REPEAT V TIMES (

            # ======================================== *3+1 ======================================================== #

            REPEAT Y TIMES (
                INCREASE Y
                INCREASE Y
            )
            INCREASE Y
            REPEAT K TIMES (
                INCREASE K
                INCREASE K
            )
            REPEAT S TIMES (
                INCREASE S
                INCREASE S
            )
            REPEAT T TIMES (
                INCREASE T
                INCREASE T
            )
            REPEAT U TIMES (
                INCREASE U
                INCREASE U
            )
            REPEAT N TIMES (
                INCREASE N
                INCREASE N
            )

            # ============= #

            CLEAR P CLEAR Q CLEAR B CLEAR C CLEAR D CLEAR E CLEAR F CLEAR G CLEAR H CLEAR I CLEAR J
            REPEAT Y TIMES (

                CLEAR A
                INCREASE A

                REPEAT J TIMES (
                    CLEAR J
                    CLEAR A
                    INCREASE P
                    CLEAR Q
                )
                REPEAT I TIMES (
                    CLEAR I
                    CLEAR A
                    INCREASE J
                    INCREASE Q
                )
                REPEAT H TIMES (
                    CLEAR H
                    CLEAR A
                    INCREASE I
                    INCREASE Q
                )
                REPEAT G TIMES (
                    CLEAR G
                    CLEAR A
                    INCREASE H
                    INCREASE Q
                )
                REPEAT F TIMES (
                    CLEAR F
                    CLEAR A
                    INCREASE G
                    INCREASE Q
                )
                REPEAT E TIMES (
                    CLEAR E
                    CLEAR A
                    INCREASE F
                    INCREASE Q
                )
                REPEAT D TIMES (
                    CLEAR D
                    CLEAR A
                    INCREASE E
                    INCREASE Q
                )
                REPEAT C TIMES (
                    CLEAR C
                    CLEAR A
                    INCREASE D
                    INCREASE Q
                )
                REPEAT B TIMES (
                    CLEAR B
                    CLEAR A
                    INCREASE C
                    INCREASE Q
                )
                REPEAT A TIMES (
                    INCREASE B
                    INCREASE Q
                )

            )

            CLEAR Y
            REPEAT Q TIMES ( INCREASE Y )
            REPEAT P TIMES ( INCREASE K )


            # ============= #

            CLEAR P CLEAR Q CLEAR B CLEAR C CLEAR D CLEAR E CLEAR F CLEAR G CLEAR H CLEAR I CLEAR J
            REPEAT K TIMES (

                CLEAR A
                INCREASE A

                REPEAT J TIMES (
                    CLEAR J
                    CLEAR A
                    INCREASE P
                    CLEAR Q
                )
                REPEAT I TIMES (
                    CLEAR I
                    CLEAR A
                    INCREASE J
                    INCREASE Q
                )
                REPEAT H TIMES (
                    CLEAR H
                    CLEAR A
                    INCREASE I
                    INCREASE Q
                )
                REPEAT G TIMES (
                    CLEAR G
                    CLEAR A
                    INCREASE H
                    INCREASE Q
                )
                REPEAT F TIMES (
                    CLEAR F
                    CLEAR A
                    INCREASE G
                    INCREASE Q
                )
                REPEAT E TIMES (
                    CLEAR E
                    CLEAR A
                    INCREASE F
                    INCREASE Q
                )
                REPEAT D TIMES (
                    CLEAR D
                    CLEAR A
                    INCREASE E
                    INCREASE Q
                )
                REPEAT C TIMES (
                    CLEAR C
                    CLEAR A
                    INCREASE D
                    INCREASE Q
                )
                REPEAT B TIMES (
                    CLEAR B
                    CLEAR A
                    INCREASE C
                    INCREASE Q
                )
                REPEAT A TIMES (
                    INCREASE B
                    INCREASE Q
                )

            )

            CLEAR K
            REPEAT Q TIMES ( INCREASE K )
            REPEAT P TIMES ( INCREASE S )


            # ============= #


            CLEAR P CLEAR Q CLEAR B CLEAR C CLEAR D CLEAR E CLEAR F CLEAR G CLEAR H CLEAR I CLEAR J
            REPEAT S TIMES (

                CLEAR A
                INCREASE A

                REPEAT J TIMES (
                    CLEAR J
                    CLEAR A
                    INCREASE P
                    CLEAR Q
                )
                REPEAT I TIMES (
                    CLEAR I
                    CLEAR A
                    INCREASE J
                    INCREASE Q
                )
                REPEAT H TIMES (
                    CLEAR H
                    CLEAR A
                    INCREASE I
                    INCREASE Q
                )
                REPEAT G TIMES (
                    CLEAR G
                    CLEAR A
                    INCREASE H
                    INCREASE Q
                )
                REPEAT F TIMES (
                    CLEAR F
                    CLEAR A
                    INCREASE G
                    INCREASE Q
                )
                REPEAT E TIMES (
                    CLEAR E
                    CLEAR A
                    INCREASE F
                    INCREASE Q
                )
                REPEAT D TIMES (
                    CLEAR D
                    CLEAR A
                    INCREASE E
                    INCREASE Q
                )
                REPEAT C TIMES (
                    CLEAR C
                    CLEAR A
                    INCREASE D
                    INCREASE Q
                )
                REPEAT B TIMES (
                    CLEAR B
                    CLEAR A
                    INCREASE C
                    INCREASE Q
                )
                REPEAT A TIMES (
                    INCREASE B
                    INCREASE Q
                )

            )

            CLEAR S
            REPEAT Q TIMES ( INCREASE S )
            REPEAT P TIMES ( INCREASE T )


            # ============= #

            CLEAR P CLEAR Q CLEAR B CLEAR C CLEAR D CLEAR E CLEAR F CLEAR G CLEAR H CLEAR I CLEAR J
            REPEAT T TIMES (

                CLEAR A
                INCREASE A

                REPEAT J TIMES (
                    CLEAR J
                    CLEAR A
                    INCREASE P
                    CLEAR Q
                )
                REPEAT I TIMES (
                    CLEAR I
                    CLEAR A
                    INCREASE J
                    INCREASE Q
                )
                REPEAT H TIMES (
                    CLEAR H
                    CLEAR A
                    INCREASE I
                    INCREASE Q
                )
                REPEAT G TIMES (
                    CLEAR G
                    CLEAR A
                    INCREASE H
                    INCREASE Q
                )
                REPEAT F TIMES (
                    CLEAR F
                    CLEAR A
                    INCREASE G
                    INCREASE Q
                )
                REPEAT E TIMES (
                    CLEAR E
                    CLEAR A
                    INCREASE F
                    INCREASE Q
                )
                REPEAT D TIMES (
                    CLEAR D
                    CLEAR A
                    INCREASE E
                    INCREASE Q
                )
                REPEAT C TIMES (
                    CLEAR C
                    CLEAR A
                    INCREASE D
                    INCREASE Q
                )
                REPEAT B TIMES (
                    CLEAR B
                    CLEAR A
                    INCREASE C
                    INCREASE Q
                )
                REPEAT A TIMES (
                    INCREASE B
                    INCREASE Q
                )

            )

            CLEAR T
            REPEAT Q TIMES ( INCREASE T )
            REPEAT P TIMES ( INCREASE U )


            # ============= #


            CLEAR P CLEAR Q CLEAR B CLEAR C CLEAR D CLEAR E CLEAR F CLEAR G CLEAR H CLEAR I CLEAR J
            REPEAT U TIMES (

                CLEAR A
                INCREASE A

                REPEAT J TIMES (
                    CLEAR J
                    CLEAR A
                    INCREASE P
                    CLEAR Q
                )
                REPEAT I TIMES (
                    CLEAR I
                    CLEAR A
                    INCREASE J
                    INCREASE Q
                )
                REPEAT H TIMES (
                    CLEAR H
                    CLEAR A
                    INCREASE I
                    INCREASE Q
                )
                REPEAT G TIMES (
                    CLEAR G
                    CLEAR A
                    INCREASE H
                    INCREASE Q
                )
                REPEAT F TIMES (
                    CLEAR F
                    CLEAR A
                    INCREASE G
                    INCREASE Q
                )
                REPEAT E TIMES (
                    CLEAR E
                    CLEAR A
                    INCREASE F
                    INCREASE Q
                )
                REPEAT D TIMES (
                    CLEAR D
                    CLEAR A
                    INCREASE E
                    INCREASE Q
                )
                REPEAT C TIMES (
                    CLEAR C
                    CLEAR A
                    INCREASE D
                    INCREASE Q
                )
                REPEAT B TIMES (
                    CLEAR B
                    CLEAR A
                    INCREASE C
                    INCREASE Q
                )
                REPEAT A TIMES (
                    INCREASE B
                    INCREASE Q
                )

            )

            CLEAR U
            REPEAT Q TIMES ( INCREASE U )
            REPEAT P TIMES ( INCREASE N )

            # ============= #


            CLEAR P CLEAR Q CLEAR B CLEAR C CLEAR D CLEAR E CLEAR F CLEAR G CLEAR H CLEAR I CLEAR J
            REPEAT N TIMES (

                CLEAR A
                INCREASE A

                REPEAT J TIMES (
                    CLEAR J
                    CLEAR A
                    INCREASE P
                    CLEAR Q
                )
                REPEAT I TIMES (
                    CLEAR I
                    CLEAR A
                    INCREASE J
                    INCREASE Q
                )
                REPEAT H TIMES (
                    CLEAR H
                    CLEAR A
                    INCREASE I
                    INCREASE Q
                )
                REPEAT G TIMES (
                    CLEAR G
                    CLEAR A
                    INCREASE H
                    INCREASE Q
                )
                REPEAT F TIMES (
                    CLEAR F
                    CLEAR A
                    INCREASE G
                    INCREASE Q
                )
                REPEAT E TIMES (
                    CLEAR E
                    CLEAR A
                    INCREASE F
                    INCREASE Q
                )
                REPEAT D TIMES (
                    CLEAR D
                    CLEAR A
                    INCREASE E
                    INCREASE Q
                )
                REPEAT C TIMES (
                    CLEAR C
                    CLEAR A
                    INCREASE D
                    INCREASE Q
                )
                REPEAT B TIMES (
                    CLEAR B
                    CLEAR A
                    INCREASE C
                    INCREASE Q
                )
                REPEAT A TIMES (
                    INCREASE B
                    INCREASE Q
                )

            )

            CLEAR N
            REPEAT Q TIMES ( INCREASE N )


            # ======= päivitä X ======= #
            REPEAT X TIMES (
                INCREASE X
                INCREASE X
            )
            INCREASE X

            PRINT X


        )



        # ======================================== / 2 ======================================================== #

        CLEAR P CLEAR Q
        REPEAT N TIMES (
            CLEAR A INCREASE A
            REPEAT Q TIMES (
                CLEAR A
                CLEAR Q
                INCREASE P
            )
            REPEAT A TIMES (
                INCREASE Q
            )
        )

        CLEAR N
        REPEAT P TIMES ( INCREASE N )

        REPEAT Q TIMES (
            REPEAT O TIMES (
                INCREASE U
            )
        )

        # ============= #


        CLEAR P CLEAR Q
        REPEAT U TIMES (
            CLEAR A INCREASE A
            REPEAT Q TIMES (
                CLEAR A
                CLEAR Q
                INCREASE P
            )
            REPEAT A TIMES (
                INCREASE Q
            )
        )

        CLEAR U
        REPEAT P TIMES ( INCREASE U )

        REPEAT Q TIMES (
            REPEAT O TIMES (
                INCREASE T
            )
        )

        # ============= #


        CLEAR P CLEAR Q
        REPEAT T TIMES (
            CLEAR A INCREASE A
            REPEAT Q TIMES (
                CLEAR A
                CLEAR Q
                INCREASE P
            )
            REPEAT A TIMES (
                INCREASE Q
            )
        )

        CLEAR T
        REPEAT P TIMES ( INCREASE T )

        REPEAT Q TIMES (
            REPEAT O TIMES (
                INCREASE S
            )
        )

        # ============= #


        CLEAR P CLEAR Q
        REPEAT S TIMES (
            CLEAR A INCREASE A
            REPEAT Q TIMES (
                CLEAR A
                CLEAR Q
                INCREASE P
            )
            REPEAT A TIMES (
                INCREASE Q
            )
        )

        CLEAR S
        REPEAT P TIMES ( INCREASE S )

        REPEAT Q TIMES (
            REPEAT O TIMES (
                INCREASE K
            )
        )

        # ============= #

        CLEAR P CLEAR Q
        REPEAT K TIMES (
            CLEAR A INCREASE A
            REPEAT Q TIMES (
                CLEAR A
                CLEAR Q
                INCREASE P
            )
            REPEAT A TIMES (
                INCREASE Q
            )
        )


        CLEAR K
        REPEAT P TIMES ( INCREASE K )

        REPEAT Q TIMES (
            REPEAT O TIMES (
                INCREASE Y
            )
        )


        # ============= #



        CLEAR P CLEAR Q
        REPEAT Y TIMES (
            CLEAR A INCREASE A
            REPEAT Q TIMES (
                CLEAR A
                CLEAR Q
                INCREASE P
            )
            REPEAT A TIMES (
                INCREASE Q
            )
        )

        CLEAR Y
        REPEAT P TIMES ( INCREASE Y )


        # ======= muodosta X alusta ====== #


        CLEAR X
        REPEAT Y TIMES (
            INCREASE X
        )
        REPEAT K TIMES (
            REPEAT O TIMES ( 
                INCREASE X 
            )
        )
        REPEAT S TIMES (
            REPEAT O TIMES (
                REPEAT O TIMES (
                    INCREASE X
                )
            )
        )
        REPEAT T TIMES (
            REPEAT O TIMES (
                REPEAT O TIMES (
                    REPEAT O TIMES (
                        INCREASE X
                    )
                )
            )
        )
        REPEAT U TIMES (
            REPEAT O TIMES (
                REPEAT O TIMES (
                    REPEAT O TIMES (
                        REPEAT O TIMES (
                            INCREASE X
                        )
                    )
                )
            )
        )
        REPEAT N TIMES (
            REPEAT O TIMES (
                REPEAT O TIMES (
                    REPEAT O TIMES (
                        REPEAT O TIMES (
                            REPEAT O TIMES (
                                INCREASE X
                            )
                        )
                    )
                )
            )
        )

        # ========================================== print ====================================================== #

        PRINT X

        # ========================================== jatkuuko? ====================================================== #


        CLEAR R

        CLEAR A CLEAR B
        INCREASE A
        REPEAT Y TIMES (
            REPEAT B TIMES (
                CLEAR A
                CLEAR B
                INCREASE R
            )
            REPEAT A TIMES (
                INCREASE B
            )
        )
        # jos Y > 1: R = 0 (ei välttämättä jatku enää)


        REPEAT N TIMES ( INCREASE R )
        REPEAT U TIMES ( INCREASE R )
        REPEAT T TIMES ( INCREASE R )
        REPEAT S TIMES ( INCREASE R )
        REPEAT K TIMES ( INCREASE R )
        REPEAT R TIMES ( CLEAR R INCREASE R )
        # jos UTSK > 0: R = 1 (jatkuu varmasti)

    )
)