PRINT X   

REPEAT 1000 TIMES (   
    CLEAR A
    CLEAR B
    CLEAR C
    CLEAR D

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

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

)