INCREASE X
INCREASE X
INCREASE X
INCREASE X
INCREASE X
INCREASE X
PRINT X
CLEAR 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
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 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
# C = continue flag
CLEAR C
INCREASE C
REPEAT A TIMES (
REPEAT C TIMES (
# Compute I = floor(X/2) and R = parity(X) together
CLEAR R
CLEAR I
REPEAT X TIMES (
CLEAR T
INCREASE T
REPEAT R TIMES ( CLEAR T )
CLEAR R
REPEAT T TIMES ( INCREASE R )
CLEAR U
INCREASE U
REPEAT R TIMES ( CLEAR U )
REPEAT U TIMES ( INCREASE I )
)
# Check if I == 0 (X == 1), set C = 0 if so
CLEAR L
INCREASE L
REPEAT I TIMES ( CLEAR L )
REPEAT L TIMES ( CLEAR C )
# Process only if I != 0 (X > 1)
CLEAR G
INCREASE G
REPEAT L TIMES ( CLEAR G )
REPEAT G TIMES (
# If even (R == 0): X = I
CLEAR H
INCREASE H
REPEAT R TIMES ( CLEAR H )
REPEAT H TIMES (
CLEAR X
REPEAT I TIMES ( INCREASE X )
PRINT X
)
# If odd (R == 1): X = 6*I + 4
REPEAT R TIMES (
CLEAR X
REPEAT I TIMES ( INCREASE X INCREASE X INCREASE X INCREASE X INCREASE X INCREASE X )
INCREASE X
INCREASE X
INCREASE X
INCREASE X
PRINT X
)
)
)
)