INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A

INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A INCREASE A
INCREASE A INCREASE A INCREASE A

PRINT X
INCREASE B
REPEAT A TIMES ( REPEAT B TIMES ( # WHILE TRUE

    CLEAR O CLEAR P CLEAR Q CLEAR R CLEAR S
    CLEAR Y CLEAR Z

    INCREASE O
    REPEAT X TIMES (
        REPEAT S TIMES ( CLEAR S INCREASE O )
        REPEAT R TIMES ( CLEAR R INCREASE S INCREASE Y INCREASE Z )
        REPEAT Q TIMES ( CLEAR Q INCREASE R)
        REPEAT P TIMES ( CLEAR P INCREASE Q INCREASE Y)
        REPEAT O TIMES ( CLEAR O INCREASE P ) 
    )

    # O = ISZERO X
    # PQRS = X=1234 MOD4
    # Y = HALF X
    # Z = QUARTER X

    REPEAT P TIMES ( # IF X=1 MOD4
        CLEAR T INCREASE T
        REPEAT Z TIMES ( CLEAR T )
        REPEAT T TIMES ( CLEAR B )

        REPEAT B TIMES ( # IF Z=0 BREAK

        REPEAT Y TIMES (
            INCREASE Y INCREASE Y INCREASE Y INCREASE Y INCREASE Y
            INCREASE X
        )
        INCREASE Y INCREASE Y INCREASE Y INCREASE Y
        PRINT Y # 12Z+4

        INCREASE X
        PRINT X # 6Z+2

        CLEAR X

        REPEAT Z TIMES ( INCREASE X INCREASE X INCREASE X )
        INCREASE X
        PRINT X # 3Z+1

    ) )

    REPEAT Q TIMES ( # IF X=2 MOD4
        PRINT Y # 2Z+1

        CLEAR T INCREASE T
        REPEAT Z TIMES ( CLEAR T )
        REPEAT T TIMES ( CLEAR B )
        REPEAT B TIMES ( # IF X=2, Z=0, WE HAVE TO TERMINATE.

        REPEAT Y TIMES ( INCREASE X )
        INCREASE X
        PRINT X # 6Z+4

        CLEAR X
        REPEAT Z TIMES ( INCREASE X INCREASE X INCREASE X )
        INCREASE X INCREASE X
        PRINT X # 3Z+2
    ) )

    REPEAT R TIMES ( # IF X=3 MOD 4 4Z+3+2Z+1
        REPEAT Y TIMES (
            INCREASE Y INCREASE Y INCREASE Y INCREASE Y INCREASE Y
            INCREASE X
        )
        INCREASE Y INCREASE Y INCREASE Y INCREASE Y
        PRINT Y # 12Z+10

        INCREASE X
        PRINT X # 6Z+5

        REPEAT Z TIMES (
            INCREASE Y INCREASE Y INCREASE Y INCREASE Y INCREASE Y INCREASE Y
            INCREASE X INCREASE X INCREASE X
        )
        INCREASE Y INCREASE Y INCREASE Y INCREASE Y INCREASE Y INCREASE Y
        PRINT Y # 18Z+16

        INCREASE X INCREASE X INCREASE X
        PRINT X # 9Z+8
    )

    REPEAT S TIMES ( # IF 4 MOD4
        PRINT Y # 2Z
        PRINT Z # Z
        CLEAR X
        REPEAT Z TIMES ( INCREASE X )
    ) )
)