# 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 )
)
)