# Y=even # Z=odd # V=X-1 # U=times # T=notend INCREASE T INCREASE U REPEAT U TIMES ( INCREASE U ) REPEAT U TIMES ( INCREASE U ) REPEAT U TIMES ( INCREASE U ) REPEAT U TIMES ( INCREASE U ) REPEAT U TIMES ( INCREASE U ) REPEAT U TIMES ( INCREASE U ) REPEAT U TIMES ( INCREASE U ) REPEAT U TIMES ( REPEAT T TIMES ( CLEAR W CLEAR Y CLEAR Z INCREASE Y REPEAT X TIMES ( REPEAT Y TIMES ( INCREASE W ) CLEAR Y REPEAT Z TIMES ( INCREASE Y ) CLEAR Z REPEAT W TIMES ( INCREASE Z ) CLEAR W ) REPEAT Y TIMES ( CLEAR W CLEAR A CLEAR B REPEAT X TIMES ( INCREASE A REPEAT A TIMES ( INCREASE W ) CLEAR A REPEAT B TIMES ( INCREASE A ) CLEAR B REPEAT W TIMES ( INCREASE B ) CLEAR W ) CLEAR X REPEAT A TIMES ( INCREASE X ) PRINT X ) # odd REPEAT Z TIMES ( REPEAT X TIMES ( INCREASE X INCREASE X ) INCREASE X PRINT X ) # X-1 CLEAR C CLEAR S INCREASE S REPEAT X TIMES ( INCREASE C REPEAT S TIMES ( CLEAR C CLEAR S ) ) # if end INCREASE S REPEAT C TIMES ( CLEAR S ) REPEAT S TIMES ( CLEAR T ) ) )