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

INCREASE S
REPEAT T TIMES (
    REPEAT S TIMES (
        PRINT X
        CLEAR Y
CLEAR P
 REPEAT X TIMES ( 
CLEAR Z INCREASE Z
REPEAT P TIMES ( INCREASE Y CLEAR Z CLEAR P ) 
REPEAT Z TIMES ( INCREASE P )
)

        REPEAT P TIMES (
            CLEAR O
            REPEAT Y TIMES (
                CLEAR O
                INCREASE O
            )
            REPEAT O TIMES (
                REPEAT X TIMES (
                    INCREASE X
                    INCREASE X
                )
                INCREASE X
            )
            # FLIP

CLEAR Z INCREASE Z
REPEAT O TIMES ( CLEAR Z CLEAR O )
REPEAT Z TIMES ( INCREASE O )
# FLIP END
 # X IS 1
            REPEAT O TIMES (
                CLEAR S
            )
        )
        # FLIP

CLEAR Z INCREASE Z
REPEAT P TIMES ( CLEAR Z CLEAR P )
REPEAT Z TIMES ( INCREASE P )
# FLIP END

        REPEAT P TIMES (
            CLEAR X
            REPEAT Y TIMES (
                INCREASE X
            )
        )
    )
)