Lukujono

INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B
INCREASE B

INCREASE D
INCREASE D
INCREASE D

INCREASE X
INCREASE X
INCREASE X

INCREASE P
INCREASE P

CLEAR J

REPEAT P TIMES (
    REPEAT P TIMES (
        REPEAT P TIMES (
            REPEAT P TIMES (
                REPEAT P TIMES (
                    REPEAT P TIMES (
                        REPEAT P TIMES (
                            REPEAT P TIMES (
                                INCREASE J
                            )
                        )
                    )
                )
            )
        )
    )
)

PRINT X

REPEAT J TIMES (
    #GET X MODULO 2 (Z)

    CLEAR Z
    INCREASE Z

    CLEAR R

    REPEAT X TIMES (
        CLEAR O
        CLEAR F
        REPEAT Z TIMES (
            REPEAT F TIMES (
                CLEAR F
                INCREASE O
            )
            INCREASE F

            REPEAT O TIMES (
                INCREASE R
                CLEAR O
                CLEAR Z
            )
        )
        INCREASE Z
    )

    REPEAT R TIMES (
        INCREASE R
    )

    CLEAR Z

    REPEAT X TIMES (
        INCREASE Z
    )

    REPEAT R TIMES (
        CLEAR F
        CLEAR Y
        REPEAT Z TIMES (
            REPEAT F TIMES (
                CLEAR F
                INCREASE Y
            )
            INCREASE F
        )
        CLEAR Z
        REPEAT Y TIMES (
            INCREASE Z
        )
    )

    #

    # Z IS X MODULO 2

    #X = 3X + 1 IF MODULO = 1

    REPEAT Z TIMES ( # IF MODULO = 1
        REPEAT D TIMES (
            REPEAT X TIMES (
                INCREASE C
            )
        )
        INCREASE C

        CLEAR X
        REPEAT C TIMES (
            INCREASE X
        )

        CLEAR C

        PRINT X
    )

    #

    #   DIVIDE X BY 2
    CLEAR O
    CLEAR R
    CLEAR F

    CLEAR Z
    INCREASE Z

    REPEAT X TIMES (
        CLEAR O
        CLEAR F
        REPEAT Z TIMES (
            REPEAT F TIMES (
                CLEAR F
                INCREASE O
            )
            INCREASE F

            REPEAT O TIMES (
                INCREASE R
                CLEAR O
                CLEAR Z
            )
        )
        INCREASE Z
    )

    CLEAR X
    REPEAT R TIMES (
        INCREASE X
    )
    CLEAR R

    PRINT X
)

Test 1 (public)

Verdict: ACCEPTED